diff options
| author | Richard M. Stallman | 2005-12-23 01:39:01 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 2005-12-23 01:39:01 +0000 |
| commit | 50137744b86d2871f41cb7d1043eda48a90b7ecd (patch) | |
| tree | 6128d5d65a6ac5a1073d98876d5d9aba65f8a9c4 | |
| parent | bba50f8a9e697263139b19872ee0cc8f0e46b317 (diff) | |
| download | emacs-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/ChangeLog | 4 | ||||
| -rw-r--r-- | lisp/cus-edit.el | 14 |
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 | ||
| 14 | 2005-12-22 Stefan Monnier <monnier@iro.umontreal.ca> | 18 | 2005-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. |
| 771 | The key is a string containing the name of the action, the value is a | 771 | The key is a string containing the name of the action, the value is a |
| 772 | Lisp function taking the widget as an element which will be called | 772 | Lisp 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. |
| 806 | The immediate result is to restore them to their standard settings. | 806 | The immediate result is to restore them to their standard values. |
| 807 | This operation eliminates any saved settings for the group members, | 807 | This operation eliminates any saved values for the group members, |
| 808 | making them as if they had never been customized at all." | 808 | making 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." "\ | |||
| 1780 | something in this group is not prepared for customization.") | 1780 | something in this group is not prepared for customization.") |
| 1781 | (standard " " nil "\ | 1781 | (standard " " nil "\ |
| 1782 | STANDARD." "\ | 1782 | STANDARD." "\ |
| 1783 | visible group members are all at standard settings.")) | 1783 | visible group members are all at standard values.")) |
| 1784 | "Alist of customize option states. | 1784 | "Alist of customize option states. |
| 1785 | Each entry is of the form (STATE MAGIC FACE ITEM-DESC [ GROUP-DESC ]), where | 1785 | Each 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. |
| 3406 | This operation eliminates any saved setting for the face, | 3406 | This operation eliminates any saved attributes for the face, |
| 3407 | restoring it to the state of a face that has never been customized." | 3407 | restoring 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 () |