From 1dcd9ebaed6b21c8a9aa17b4a8ff61ab8f81751e Mon Sep 17 00:00:00 2001 From: Markus Rost Date: Fri, 11 Oct 2002 06:24:12 +0000 Subject: [PATCH] (Custom-reset-current): Don't test for default-boundp. (Custom-reset-saved): Don't test for saved-value. --- lisp/cus-edit.el | 18 ++++++++---------- 1 file changed, 8 insertions(+), 10 deletions(-) diff --git a/lisp/cus-edit.el b/lisp/cus-edit.el index ce9829578f4..ca29f221716 100644 --- a/lisp/cus-edit.el +++ b/lisp/cus-edit.el @@ -672,22 +672,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. -- 2.39.2