From: Markus Rost <rost@math.uni-bielefeld.de>
Date: Wed, 9 Oct 2002 15:18:44 +0000 (+0000)
Subject: (Custom-reset-current):  Don't test for default-boundp.
X-Git-Tag: ttn-vms-21-2-B4~12892
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=1d58631a6170c8e88772af293dfffdc15e897edf;p=emacs.git

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

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.