Mercurial > emacs

diff lisp/cus-edit.el @ 46580:2c25b46baf82

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(custom-variable-value-create): Say "Show Value", not just "Show". Also "Hide Value". Output a newline before the doc string. (custom-face-value-create): Say "Show Face" and "Hide Face".
author Richard M. Stallman <rms@gnu.org>
date Sat, 20 Jul 2002 22:14:36 +0000
parents ccaa90ab16a3
children 59fc9e6fd3e8
line wrap: on
line diff
--- a/lisp/cus-edit.el	Sat Jul 20 22:09:46 2002 +0000
+++ b/lisp/cus-edit.el	Sat Jul 20 22:14:36 2002 +0000
@@ -2120,6 +2120,7 @@
 	   (push (widget-create-child-and-convert
 		  widget 'visibility
 		  :help-echo "Show the value of this option."
+		  :off "Show Value"
 		  :action 'custom-toggle-parent
 		  nil)
 		 buttons))
@@ -2137,6 +2138,8 @@
 	     (push (widget-create-child-and-convert
 		    widget 'visibility
 		    :help-echo "Hide the value of this option."
+		    :on "Hide Value"
+		    :off "Show Value"
 		    :action 'custom-toggle-parent
 		    t)
 		   buttons)
@@ -2171,6 +2174,8 @@
 	     (push (widget-create-child-and-convert
 		    widget 'visibility
 		    :help-echo "Hide the value of this option."
+		    :on "Hide Value"
+		    :off "Show Value"
 		    :action 'custom-toggle-parent
 		    t)
 		   buttons)
@@ -2193,6 +2198,7 @@
       ;; this anyway. The doc string widget should be added like the others.
       ;; --dv
       (widget-put widget :buttons buttons)
+      (insert "\n")
       ;; Insert documentation.
       (widget-default-format-handler widget ?h)
 
@@ -2783,6 +2789,8 @@
 	   (push (widget-create-child-and-convert
 		  widget 'visibility
 		  :help-echo "Hide or show this face."
+		  :on "Hide Face"
+		  :off "Show Face"
 		  :action 'custom-toggle-parent
 		  (not (eq state 'hidden)))
 		 buttons)