# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 867122254 0
# Node ID 8326843eefd920db1e8b3a7b535d321492683074
# Parent  5ec58687160ad43a62cc12963f4f15a4d030b8e6
(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.

diff -r 5ec58687160a -r 8326843eefd9 lisp/wid-edit.el
--- 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'.