Lines Matching +defs:new +defs:prompt
50 ;; * `C-h' in `widget-prompt-value' should give type specific help.
281 ;; Unread a SPC to lead to our new menu.
325 new value.")
547 (defun widget-prompt-value (widget prompt &optional value unbound)
552 (setq prompt (format "[%s] %s" (widget-type widget) prompt))
554 (let ((answer (widget-apply widget :prompt-value prompt value unbound)))
1066 (let ((new (widget-tabable-at)))
1067 (when new
1068 (unless (eq new old)
1070 (setq old new)))))
1083 (let ((new (widget-tabable-at)))
1084 (when new
1085 (unless (eq new old)
1087 (let ((new (widget-tabable-at)))
1088 (while (eq (widget-tabable-at) new)
1161 (defvar widget-field-new nil
1163 (make-variable-buffer-local 'widget-field-new)
1180 (while widget-field-new
1181 (setq field (car widget-field-new)
1182 widget-field-new (cdr widget-field-new)
1437 :prompt-value 'widget-default-prompt-value)
1606 "Recreate widget with new value."
1614 ;;??? Bug: this ought to insert the new value before deleting the old one,
1667 (defun widget-default-prompt-value (widget prompt value unbound)
1673 (eval-minibuffer prompt))
1863 :prompt-internal 'widget-field-prompt-internal
1864 :prompt-history 'widget-field-history
1865 :prompt-value 'widget-field-prompt-value
1878 (defun widget-field-prompt-internal (widget prompt initial history)
1882 (read-string prompt initial history))
1884 (defun widget-field-prompt-value (widget prompt value unbound)
1889 :prompt-internal prompt
1894 (widget-get widget :prompt-history))))
1924 (setq widget-field-new (cons widget widget-field-new)))
1935 (setq widget-field-new (delq widget widget-field-new))
2050 ;; Too long, prompt.
2075 ;; Find new choice.
2411 "Add to radio widget WIDGET a new radio button item of type TYPE."
2544 :help-echo "Insert a new item into the list at this position."
2548 ;; Ask the parent to insert a new item.
2561 ;; Ask the parent to insert a new item.
2646 ;; Insert a new child in the list of children.
2698 ;; Create a new entry to the list.
2963 :prompt-value 'widget-const-prompt-value
2966 (defun widget-const-prompt-value (widget prompt value unbound)
2994 (defvar widget-string-prompt-value-history nil
2995 "History of input to `widget-string-prompt-value'.")
3002 :prompt-history 'widget-string-prompt-value-history)
3032 :prompt-value 'widget-file-prompt-value
3065 (defun widget-file-prompt-value (widget prompt value unbound)
3069 (read-file-name prompt)
3070 (let ((prompt2 (format "%s (default %s): " prompt value))
3095 (defvar widget-symbol-prompt-value-history nil
3096 "History of input to `widget-symbol-prompt-value'.")
3105 :prompt-internal 'widget-symbol-prompt-internal
3106 :prompt-match 'symbolp
3107 :prompt-history 'widget-symbol-prompt-value-history
3117 (defun widget-symbol-prompt-internal (widget prompt initial history)
3119 (let ((answer (completing-read prompt obarray
3120 (widget-get widget :prompt-match)
3127 (defvar widget-function-prompt-value-history nil
3128 "History of input to `widget-function-prompt-value'.")
3135 :prompt-value 'widget-field-prompt-value
3136 :prompt-internal 'widget-symbol-prompt-internal
3137 :prompt-match 'fboundp
3138 :prompt-history 'widget-function-prompt-value-history
3149 (defvar widget-variable-prompt-value-history nil
3150 "History of input to `widget-variable-prompt-value'.")
3154 :prompt-match 'boundp
3155 :prompt-history 'widget-variable-prompt-value-history
3162 (defvar widget-coding-system-prompt-value-history nil
3163 "History of input to `widget-coding-system-prompt-value'.")
3170 :prompt-history 'widget-coding-system-prompt-value-history
3171 :prompt-value 'widget-coding-system-prompt-value
3182 :prompt-match 'coding-system-p)
3184 (defun widget-coding-system-prompt-value (widget prompt value unbound)
3188 (completing-read (format "%s (default %s): " prompt value)
3191 (read-coding-system (format "%s (default %s): " prompt value) value)))
3195 (widget-coding-system-prompt-value
3206 (defvar widget-key-sequence-prompt-value-history nil
3207 "History of input to `widget-key-sequence-prompt-value'.")
3220 :prompt-value 'widget-field-prompt-value
3221 :prompt-internal 'widget-symbol-prompt-internal
3222 ; :prompt-match 'fboundp ;; What was this good for? KFS
3223 :prompt-history 'widget-key-sequence-prompt-value-history
3293 :prompt-history 'widget-sexp-prompt-value-history
3294 :prompt-value 'widget-sexp-prompt-value)
3337 (defvar widget-sexp-prompt-value-history nil
3338 "History of input to `widget-sexp-prompt-value'.")
3340 (defun widget-sexp-prompt-value (widget prompt value unbound)
3342 (let ((found (read-string prompt
3344 (widget-get widget :prompt-history))))
3459 widget. When deriving a new widget from the 'lazy' widget, the :type
3467 not allow recursion. That is, when you define a new widget type, none
3602 :prompt-value 'widget-choice-prompt-value)
3604 (defun widget-choice-prompt-value (widget prompt value unbound)
3616 ;; Find new choice.
3635 (let ((val (completing-read prompt choices nil t)))
3643 (widget-prompt-value current prompt nil t)
3651 :prompt-value 'widget-choice-prompt-value)
3666 :prompt-value 'widget-boolean-prompt-value
3673 (defun widget-boolean-prompt-value (widget prompt value unbound)
3675 (y-or-n-p prompt))
3723 (prompt (concat tag ": "))
3726 (answer (facemenu-read-color prompt)))