Lines Matching +defs:suffix +defs:string
178 (defun widget-princ-to-string (object)
179 "Return string representation of OBJECT, any Lisp object.
182 (with-output-to-string
615 (string :format "%v")))))
630 ;; A string. Look it up in relevant directories.
678 :type 'string
681 (defcustom widget-button-suffix ""
682 "String used as suffix for buttons."
683 :type 'string
1176 "Setup current buffer so editing string widgets works."
1414 :button-suffix 'widget-button-suffix
1465 (insert (widget-get-indirect widget :button-suffix))
1543 (when (string-match "\n+\\'" doc-text)
1546 widget 'documentation-string
1641 (widget-princ-to-string (widget-get widget :value))))
1672 ;; (prin1-to-string (custom-quote value))))))
1732 :type 'string
1735 (defcustom widget-push-button-suffix "]"
1736 "String used as suffix for buttons."
1737 :type 'string
1743 :button-suffix ""
1753 tag widget-push-button-suffix)))
1766 :type 'string
1769 (defcustom widget-link-suffix "]"
1770 "String used as suffix for links."
1771 :type 'string
1777 :button-suffix 'widget-link-suffix
1857 by some other text in the `:format' string (if specified)."
1879 "Read string for WIDGET prompting with PROMPT.
1882 (read-string prompt initial history))
1885 "Prompt for a string."
1905 (unless (string-match (widget-get widget :valid-regexp)
1936 ;; These are nil if the :format string doesn't contain `%v'.
1969 ;; Match any string.
2172 :button-suffix ""
2186 :off-glyph '(create-image (make-string 8 0)
2371 :button-suffix ""
2811 :button-suffix ""
2825 widget-push-button-suffix))
2830 widget-push-button-suffix))
2838 ;; This is a helper widget for `documentation-string'.
2848 (let* ((string (widget-get widget :value))
2849 (symbol (intern string)))
2852 (apropos (concat "\\`" (regexp-quote string) "\\'"))
2869 "Predicate used to test if a string is useful as a link.
2871 argument, a string, and should return non-nil if there should be a
2872 link for that string."
2893 (let ((name (match-string 1))
2910 ;;; The `documentation-string' Widget.
2912 (define-widget 'documentation-string 'item
2913 "A documentation string."
2915 :action 'widget-documentation-string-action
2916 :value-create 'widget-documentation-string-value-create)
2918 (defun widget-documentation-string-value-create (widget)
2919 ;; Insert documentation string.
2924 (if (string-match "\n" doc)
2950 (defun widget-documentation-string-action (widget &rest ignore)
2994 (defvar widget-string-prompt-value-history nil
2995 "History of input to `widget-string-prompt-value'.")
2997 (define-widget 'string 'editable-field
2998 "A string"
3002 :prompt-history 'widget-string-prompt-value-history)
3004 (define-widget 'regexp 'string
3017 (string-match value ""))
3024 (string-match (widget-value widget) ""))
3025 (error (widget-put widget :error (error-message-string data))
3028 (define-widget 'file 'string
3053 ((not (string= name-part completion))
3061 'string<)
3251 (insert (char-to-string ev)))) ;; throw invalid char error
3277 (if (string-match "\\`[[:space:]]*\\'" value)
3299 (prin1-to-string value)
3300 (pp-to-string value))))
3301 (while (string-match "\n\\'" pp)
3303 (if (or (string-match "\n\\'" pp)
3309 ;; Valid if we can read the string and there is no junk left after it.
3331 (error (setq err (error-message-string data))))
3342 (let ((found (read-string prompt
3343 (if unbound nil (cons (prin1-to-string value) 0))
3345 (let ((answer (read-from-string found)))
3358 (prin1-to-string value)
3407 (char-to-string value)))
3601 :button-suffix 'widget-push-button-suffix
3668 :button-suffix 'widget-push-button-suffix
3703 ((not (string-equal prefix completion))