[Emacs-diffs] Changes to emacs/lisp/cus-edit.el

[Richard M. Stallman]

Index: emacs/lisp/cus-edit.el
diff -u emacs/lisp/cus-edit.el:1.264 emacs/lisp/cus-edit.el:1.265
--- emacs/lisp/cus-edit.el:1.264        Mon Jan  2 03:38:30 2006
+++ emacs/lisp/cus-edit.el      Mon Jan  2 03:43:13 2006
@@ -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