From 211c9fe92068f0ae73a239b23d9c32fe55873cc3 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Tue, 24 Jun 1997 03:17:34 +0000 Subject: [PATCH] (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. --- lisp/wid-edit.el | 18 +++++------------- 1 file changed, 5 insertions(+), 13 deletions(-) diff --git a/lisp/wid-edit.el b/lisp/wid-edit.el index 7750fd74094..1a445d57321 100644 --- a/lisp/wid-edit.el +++ b/lisp/wid-edit.el @@ -1716,10 +1716,12 @@ If END is omitted, it defaults to the length of LIST." :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 @@ when he invoked the menu." (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 @@ when he invoked the menu." ;; 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 @@ when he invoked the menu." (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'. -- 2.39.5