Commit 50137744 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(custom-reset-menu, custom-magic-alist, Custom-mode-menu):

Say "standard values".
(Custom-reset-standard): Doc fix.
(custom-face-reset-standard): Doc fix.
parent bba50f8a
...@@ -10,6 +10,10 @@ ...@@ -10,6 +10,10 @@
(customize-changed-options-previous-release): Prev release is 21.1. (customize-changed-options-previous-release): Prev release is 21.1.
(customize-changed-options): Doc fix. (customize-changed-options): Doc fix.
(customize-changed): New alias. (customize-changed): New alias.
(custom-reset-menu, custom-magic-alist, Custom-mode-menu):
Say "standard values".
(Custom-reset-standard): Doc fix.
(custom-face-reset-standard): Doc fix.
   
2005-12-22 Stefan Monnier <monnier@iro.umontreal.ca> 2005-12-22 Stefan Monnier <monnier@iro.umontreal.ca>
   
......
...@@ -766,7 +766,7 @@ groups after non-groups, if nil do not order groups at all." ...@@ -766,7 +766,7 @@ groups after non-groups, if nil do not order groups at all."
(defvar custom-reset-menu (defvar custom-reset-menu
'(("Current" . Custom-reset-current) '(("Current" . Custom-reset-current)
("Saved" . Custom-reset-saved) ("Saved" . Custom-reset-saved)
("Erase Customization (use standard settings)" . Custom-reset-standard)) ("Erase Customization (use standard values)" . Custom-reset-standard))
"Alist of actions for the `Reset' button. "Alist of actions for the `Reset' button.
The key is a string containing the name of the action, the value is a The key is a string containing the name of the action, the value is a
Lisp function taking the widget as an element which will be called Lisp function taking the widget as an element which will be called
...@@ -803,8 +803,8 @@ when the action is chosen.") ...@@ -803,8 +803,8 @@ when the action is chosen.")
(defun Custom-reset-standard (&rest ignore) (defun Custom-reset-standard (&rest ignore)
"Erase all customization (either current or saved) for the group members. "Erase all customization (either current or saved) for the group members.
The immediate result is to restore them to their standard settings. The immediate result is to restore them to their standard values.
This operation eliminates any saved settings for the group members, This operation eliminates any saved values for the group members,
making them as if they had never been customized at all." making them as if they had never been customized at all."
(interactive) (interactive)
(let ((children custom-options)) (let ((children custom-options))
...@@ -1780,7 +1780,7 @@ NO CUSTOMIZATION DATA; not intended to be customized." "\ ...@@ -1780,7 +1780,7 @@ NO CUSTOMIZATION DATA; not intended to be customized." "\
something in this group is not prepared for customization.") something in this group is not prepared for customization.")
(standard " " nil "\ (standard " " nil "\
STANDARD." "\ STANDARD." "\
visible group members are all at standard settings.")) visible group members are all at standard values."))
"Alist of customize option states. "Alist of customize option states.
Each entry is of the form (STATE MAGIC FACE ITEM-DESC [ GROUP-DESC ]), where Each entry is of the form (STATE MAGIC FACE ITEM-DESC [ GROUP-DESC ]), where
...@@ -3402,8 +3402,8 @@ Optional EVENT is the location for the menu." ...@@ -3402,8 +3402,8 @@ Optional EVENT is the location for the menu."
(get (widget-value widget) 'face-defface-spec)) (get (widget-value widget) 'face-defface-spec))
(defun custom-face-reset-standard (widget) (defun custom-face-reset-standard (widget)
"Restore WIDGET to the face's standard settings. "Restore WIDGET to the face's standard attribute values.
This operation eliminates any saved setting for the face, This operation eliminates any saved attributes for the face,
restoring it to the state of a face that has never been customized." restoring it to the state of a face that has never been customized."
(let* ((symbol (widget-value widget)) (let* ((symbol (widget-value widget))
(child (car (widget-get widget :children))) (child (car (widget-get widget :children)))
...@@ -4341,7 +4341,7 @@ The format is suitable for use with `easy-menu-define'." ...@@ -4341,7 +4341,7 @@ The format is suitable for use with `easy-menu-define'."
["Save" Custom-save t] ["Save" Custom-save t]
["Reset to Current" Custom-reset-current t] ["Reset to Current" Custom-reset-current t]
["Reset to Saved" Custom-reset-saved t] ["Reset to Saved" Custom-reset-saved t]
["Reset to Standard Settings" Custom-reset-standard t] ["Reset to Standard Values" Custom-reset-standard t]
["Info" (info "(emacs)Easy Customization") t])) ["Info" (info "(emacs)Easy Customization") t]))
(defun Custom-goto-parent () (defun Custom-goto-parent ()
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment