# HG changeset patch
# User Markus Rost <rost@math.uni-bielefeld.de>
# Date 1034176705 0
# Node ID 26938a3af13780ac527f34f499ac203f3de03f2d
# Parent  5db3fc34243e08ef6d1142eb980ada27278671d3
(Custom-reset-current):  Don't test for default-boundp.
(Custom-reset-saved):  Don't test for saved-value.

diff -r 5db3fc34243e -r 26938a3af137 lisp/cus-edit.el
--- a/lisp/cus-edit.el	Wed Oct 09 02:20:28 2002 +0000
+++ b/lisp/cus-edit.el	Wed Oct 09 15:18:25 2002 +0000
@@ -675,22 +675,20 @@
   (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.