mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

(Custom-set, Custom-save): Doc fix.

Browse source 
(Custom-reset-current, Custom-reset-saved): Change question text.
(Custom-reset-standard): Likewise.
(custom-variable-reset-saved): Doc fix.
This commit is contained in:
Richard M. Stallman 2006-01-08 03:55:27 +00:00
parent 3af622d538
commit 671779752f
2 changed files with 18 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

7
lisp/ChangeLog
View file

@ -1,3 +1,10 @@
2006-01-07 Richard M. Stallman <rms@gnu.org>
* cus-edit.el (Custom-set, Custom-save): Doc fix.
(Custom-reset-current, Custom-reset-saved): Change question text.
(Custom-reset-standard): Likewise.
(custom-variable-reset-saved): Doc fix.
2006-01-07 Eli Zaretskii <eliz@gnu.org>
* startup.el (init-file-user): Doc fix.

18
lisp/cus-edit.el
View file

@ -744,7 +744,7 @@ groups after non-groups, if nil do not order groups at all."
"Customization widgets in the current buffer.")
(defun Custom-set ()
"Set changes in all modified options."
"Set the current value of all edited settings in the buffer."
(interactive)
(if (y-or-n-p "Set all values according to this buffer? ")
(let ((children custom-options))
@ -755,7 +755,9 @@ groups after non-groups, if nil do not order groups at all."
(message "Aborted")))
(defun Custom-save ()
"Set all modified group members and save them."
"Set all edited settings, then save all settings that have been set.
If a setting was edited and set before, this saves it.
If a setting was merely edited before, this sets it then saves it."
(interactive)
(if (yes-or-no-p "Save all settings in this buffer? ")
(let ((children custom-options))
@ -786,9 +788,9 @@ when the action is chosen.")
(funcall answer))))
(defun Custom-reset-current (&rest ignore)
"Reset all modified group members to their current value."
"Reset all edited settings in the buffer to show their current values."
(interactive)
(if (y-or-n-p "Reset buffer to show current settings? ")
(if (y-or-n-p "Reset all settings' buffer text to show current values? ")
(let ((children custom-options))
(mapc (lambda (widget)
(if (memq (widget-get widget :custom-state)
@ -798,9 +800,10 @@ when the action is chosen.")
(message "Aborted")))
(defun Custom-reset-saved (&rest ignore)
"Reset all modified or set group members to their saved value."
"Reset all edited or set settings in the buffer to their saved value.
This also shows the saved values in the buffer."
(interactive)
(if (y-or-n-p "Reset all settings to saved values? ")
(if (y-or-n-p "Reset all settings (current values and buffer text) to saved values? ")
(let ((children custom-options))
(mapc (lambda (widget)
(if (memq (widget-get widget :custom-state)
@ -819,7 +822,7 @@ making them as if they had never been customized at all."
(if (or (and (= 1 (length children))
(memq (widget-type (car children))
'(custom-variable custom-face)))
(yes-or-no-p "Erase all customizations in this buffer? "))
(yes-or-no-p "Erase all customizations for settings in this buffer? "))
(mapc (lambda (widget)
(and (if (widget-get widget :custom-standard-value)
(widget-apply widget :custom-standard-value)
@ -2783,6 +2786,7 @@ Optional EVENT is the location for the menu."
(defun custom-variable-reset-saved (widget)
"Restore the saved value for the variable being edited by WIDGET.
This also updates the buffer to show that value.
The value that was current before this operation
becomes the backup value, so you can get it again."
(let* ((symbol (widget-value widget))