From 7f66329512a09136366eecd28b06c68c36a7d27a Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sat, 20 Jul 2002 22:14:36 +0000 Subject: [PATCH] (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". --- lisp/cus-edit.el | 8 ++++++++ 1 file changed, 8 insertions(+) diff --git a/lisp/cus-edit.el b/lisp/cus-edit.el index be319cf727f..1fdb56b1439 100644 --- a/lisp/cus-edit.el +++ b/lisp/cus-edit.el @@ -2120,6 +2120,7 @@ Otherwise, look up symbol in `custom-guess-type-alist'." (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 @@ Otherwise, look up symbol in `custom-guess-type-alist'." (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 @@ Otherwise, look up symbol in `custom-guess-type-alist'." (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 @@ Otherwise, look up symbol in `custom-guess-type-alist'." ;; 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 @@ SPEC must be a full face spec." (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) -- 2.39.2