Mercurial > emacs
changeset 18429:8326843eefd9
(widget-edit-hook): New variable.
(widget-field-action, widget-choice-action): Run that hook
instead of displaying an echo area message.
(widget-toggle-action): Likewise.
(group-visibility, widget-group-visibility-create):
Moved to cus-edit.el and renamed.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Tue, 24 Jun 1997 03:17:34 +0000 |
| parents | 5ec58687160a |
| children | a8ae9c653696 |
| files | lisp/wid-edit.el |
| diffstat | 1 files changed, 5 insertions(+), 13 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/wid-edit.el Tue Jun 24 02:26:57 1997 +0000 +++ b/lisp/wid-edit.el Tue Jun 24 03:17:34 1997 +0000 @@ -1716,10 +1716,12 @@ :prompt-internal prompt initial history))) (widget-apply widget :value-to-external answer)))) +(defvar widget-edit-hook nil) + (defun widget-field-action (widget &optional event) ;; Move to next field. (widget-forward 1) - (message "To set the value, invoke [State] and choose the Set operation")) + (run-hooks 'widget-edit-hook)) (defun widget-field-validate (widget) ;; Valid if the content matches `:valid-regexp'. @@ -1915,7 +1917,7 @@ (widget-get current :value))) (widget-setup) (widget-apply widget :notify widget event))) - (message "To set the value, invoke [State] and choose the Set operation")) + (run-hooks 'widget-edit-hook)) (defun widget-choice-validate (widget) ;; Valid if we have made a valid choice. @@ -1971,7 +1973,7 @@ ;; Toggle value. (widget-value-set widget (not (widget-value widget))) (widget-apply widget :notify widget event) - (message "To set the value, invoke [State] and choose the Set operation")) + (run-hooks 'widget-edit-hook)) ;;; The `checkbox' Widget. @@ -2631,16 +2633,6 @@ (widget-glyph-insert widget on "down" "down-pushed") (widget-glyph-insert widget off "right" "right-pushed")))) -(define-widget 'group-visibility 'visibility - "An indicator and manipulator for hidden group contents." - :create 'widget-group-visibility-create) - -(defun widget-group-visibility-create (widget) - (let ((visible (widget-value widget))) - (if visible - (insert "--------"))) - (widget-default-create widget)) - ;;; The `documentation-link' Widget. ;; ;; This is a helper widget for `documentation-string'.