aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorRichard M. Stallman2005-12-23 01:39:01 +0000
committerRichard M. Stallman2005-12-23 01:39:01 +0000
commit50137744b86d2871f41cb7d1043eda48a90b7ecd (patch)
tree6128d5d65a6ac5a1073d98876d5d9aba65f8a9c4
parentbba50f8a9e697263139b19872ee0cc8f0e46b317 (diff)
downloademacs-50137744b86d2871f41cb7d1043eda48a90b7ecd.tar.gz
emacs-50137744b86d2871f41cb7d1043eda48a90b7ecd.zip
(custom-reset-menu, custom-magic-alist, Custom-mode-menu):
Say "standard values". (Custom-reset-standard): Doc fix. (custom-face-reset-standard): Doc fix.
-rw-r--r--lisp/ChangeLog4
-rw-r--r--lisp/cus-edit.el14
2 files changed, 11 insertions, 7 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 0efa8508fe2..afaf8b6bfb2 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -10,6 +10,10 @@
10 (customize-changed-options-previous-release): Prev release is 21.1. 10 (customize-changed-options-previous-release): Prev release is 21.1.
11 (customize-changed-options): Doc fix. 11 (customize-changed-options): Doc fix.
12 (customize-changed): New alias. 12 (customize-changed): New alias.
13 (custom-reset-menu, custom-magic-alist, Custom-mode-menu):
14 Say "standard values".
15 (Custom-reset-standard): Doc fix.
16 (custom-face-reset-standard): Doc fix.
13 17
142005-12-22 Stefan Monnier <monnier@iro.umontreal.ca> 182005-12-22 Stefan Monnier <monnier@iro.umontreal.ca>
15 19
diff --git a/lisp/cus-edit.el b/lisp/cus-edit.el
index ae64f94251b..03ea6350e15 100644
--- a/lisp/cus-edit.el
+++ b/lisp/cus-edit.el
@@ -766,7 +766,7 @@ groups after non-groups, if nil do not order groups at all."
766(defvar custom-reset-menu 766(defvar custom-reset-menu
767 '(("Current" . Custom-reset-current) 767 '(("Current" . Custom-reset-current)
768 ("Saved" . Custom-reset-saved) 768 ("Saved" . Custom-reset-saved)
769 ("Erase Customization (use standard settings)" . Custom-reset-standard)) 769 ("Erase Customization (use standard values)" . Custom-reset-standard))
770 "Alist of actions for the `Reset' button. 770 "Alist of actions for the `Reset' button.
771The key is a string containing the name of the action, the value is a 771The key is a string containing the name of the action, the value is a
772Lisp function taking the widget as an element which will be called 772Lisp function taking the widget as an element which will be called
@@ -803,8 +803,8 @@ when the action is chosen.")
803 803
804(defun Custom-reset-standard (&rest ignore) 804(defun Custom-reset-standard (&rest ignore)
805 "Erase all customization (either current or saved) for the group members. 805 "Erase all customization (either current or saved) for the group members.
806The immediate result is to restore them to their standard settings. 806The immediate result is to restore them to their standard values.
807This operation eliminates any saved settings for the group members, 807This operation eliminates any saved values for the group members,
808making them as if they had never been customized at all." 808making them as if they had never been customized at all."
809 (interactive) 809 (interactive)
810 (let ((children custom-options)) 810 (let ((children custom-options))
@@ -1780,7 +1780,7 @@ NO CUSTOMIZATION DATA; not intended to be customized." "\
1780something in this group is not prepared for customization.") 1780something in this group is not prepared for customization.")
1781 (standard " " nil "\ 1781 (standard " " nil "\
1782STANDARD." "\ 1782STANDARD." "\
1783visible group members are all at standard settings.")) 1783visible group members are all at standard values."))
1784 "Alist of customize option states. 1784 "Alist of customize option states.
1785Each entry is of the form (STATE MAGIC FACE ITEM-DESC [ GROUP-DESC ]), where 1785Each entry is of the form (STATE MAGIC FACE ITEM-DESC [ GROUP-DESC ]), where
1786 1786
@@ -3402,8 +3402,8 @@ Optional EVENT is the location for the menu."
3402 (get (widget-value widget) 'face-defface-spec)) 3402 (get (widget-value widget) 'face-defface-spec))
3403 3403
3404(defun custom-face-reset-standard (widget) 3404(defun custom-face-reset-standard (widget)
3405 "Restore WIDGET to the face's standard settings. 3405 "Restore WIDGET to the face's standard attribute values.
3406This operation eliminates any saved setting for the face, 3406This operation eliminates any saved attributes for the face,
3407restoring it to the state of a face that has never been customized." 3407restoring it to the state of a face that has never been customized."
3408 (let* ((symbol (widget-value widget)) 3408 (let* ((symbol (widget-value widget))
3409 (child (car (widget-get widget :children))) 3409 (child (car (widget-get widget :children)))
@@ -4341,7 +4341,7 @@ The format is suitable for use with `easy-menu-define'."
4341 ["Save" Custom-save t] 4341 ["Save" Custom-save t]
4342 ["Reset to Current" Custom-reset-current t] 4342 ["Reset to Current" Custom-reset-current t]
4343 ["Reset to Saved" Custom-reset-saved t] 4343 ["Reset to Saved" Custom-reset-saved t]
4344 ["Reset to Standard Settings" Custom-reset-standard t] 4344 ["Reset to Standard Values" Custom-reset-standard t]
4345 ["Info" (info "(emacs)Easy Customization") t])) 4345 ["Info" (info "(emacs)Easy Customization") t]))
4346 4346
4347(defun Custom-goto-parent () 4347(defun Custom-goto-parent ()