diff options
| -rw-r--r-- | lisp/ChangeLog | 6 | ||||
| -rw-r--r-- | lisp/cus-edit.el | 18 |
2 files changed, 14 insertions, 10 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 3115882958f..9cb75135b09 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -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'. diff --git a/lisp/cus-edit.el b/lisp/cus-edit.el index 99152e85dbf..58fd8b16ba9 100644 --- a/lisp/cus-edit.el +++ b/lisp/cus-edit.el @@ -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. |