martin/emacs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

(Custom-reset-current): Don't test for default-boundp.

Browse Source 
(Custom-reset-saved):  Don't test for saved-value.
This commit is contained in:
Markus Rost
2002-10-09 15:18:44 +00:00
parent 3f34081a9b
commit 1d58631a61
2 changed files with 14 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
lisp/ChangeLog
View File

@@ -1,3 +1,9 @@
2002-10-09 Markus Rost <rost@math.ohio-state.edu>
* cus-edit.el (Custom-reset-current): Don't test for
default-boundp.
(Custom-reset-saved): Don't test for saved-value.
2002-10-08 Stefan Monnier <monnier@cs.yale.edu>
* vc.el (vc-find-version): Use the new backend op `find-version'.

18
lisp/cus-edit.el
View File

@@ -675,22 +675,20 @@ when the action is chosen.")
(interactive)
(let ((children custom-options))
(mapc (lambda (widget)
(and (default-boundp (widget-value widget))
(if (memq (widget-get widget :custom-state)
'(modified changed))
(widget-apply widget :custom-reset-current))))
children)))
(if (memq (widget-get widget :custom-state)
'(modified changed))
(widget-apply widget :custom-reset-current)))
children)))
(defun Custom-reset-saved (&rest ignore)
"Reset all modified or set group members to their saved value."
(interactive)
(let ((children custom-options))
(mapc (lambda (widget)
(and (get (widget-value widget) 'saved-value)
(if (memq (widget-get widget :custom-state)
'(modified set changed rogue))
(widget-apply widget :custom-reset-saved))))
children)))
(if (memq (widget-get widget :custom-state)
'(modified set changed rogue))
(widget-apply widget :custom-reset-saved)))
children)))
(defun Custom-reset-standard (&rest ignore)
"Erase all customization (either current or saved) for the group members.