mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-02-02 20:16:25 +00:00
Code Issues Releases Activity

(custom-variable-value-create):

Browse Source 
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".
This commit is contained in:
Richard M. Stallman 2002-07-20 22:14:36 +00:00
parent 21ece56347
commit 7f66329512
1 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lisp/cus-edit.el
View File

@ -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)