changeset 67972:078134944b46

Fix previous change.
author Richard M. Stallman <rms@gnu.org>
date Mon, 02 Jan 2006 03:43:13 +0000
parents 8920c7a39a29
children c85758224c8e
files lisp/cus-edit.el
diffstat 1 files changed, 14 insertions(+), 15 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/cus-edit.el	Mon Jan 02 03:38:43 2006 +0000
+++ b/lisp/cus-edit.el	Mon Jan 02 03:43:13 2006 +0000
@@ -815,21 +815,20 @@
 This operation eliminates any saved values for the group members,
 making them as if they had never been customized at all."
   (interactive)
-  (if (yes-or-no-p "Eliminate saved values for all settings in this buffer? ")
-      (let ((children custom-options))
-	(when (or (and (= 1 (length children))
-		       (memq (widget-type (car children))
-			     '(custom-variable custom-face)))
-		  (yes-or-no-p "Really erase all customizations in this buffer? "))
-	  (mapc (lambda (widget)
-		  (and (if (widget-get widget :custom-standard-value)
-			   (widget-apply widget :custom-standard-value)
-			 t)
-		       (memq (widget-get widget :custom-state)
-			     '(modified set changed saved rogue))
-		       (widget-apply widget :custom-reset-standard)))
-		children)))
-    (message "Aborted")))
+  (let ((children custom-options))
+    (if (or (and (= 1 (length children))
+		 (memq (widget-type (car children))
+		       '(custom-variable custom-face)))
+	    (yes-or-no-p "Really erase all customizations in this buffer? "))
+	(mapc (lambda (widget)
+		(and (if (widget-get widget :custom-standard-value)
+			 (widget-apply widget :custom-standard-value)
+		       t)
+		     (memq (widget-get widget :custom-state)
+			   '(modified set changed saved rogue))
+		     (widget-apply widget :custom-reset-standard)))
+	      children)
+      (message "Aborted"))))
 
 ;;; The Customize Commands