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

[Luc Teirlinck]

Index: emacs/lisp/cus-edit.el
diff -c emacs/lisp/cus-edit.el:1.241 emacs/lisp/cus-edit.el:1.242
*** emacs/lisp/cus-edit.el:1.241        Thu Nov 17 07:18:07 2005
--- emacs/lisp/cus-edit.el      Tue Nov 22 23:28:28 2005
***************
*** 800,812 ****
  making them as if they had never been customized at all."
    (interactive)
    (let ((children custom-options))
!     (mapc (lambda (widget)
!           (and (widget-get widget :custom-standard-value)
!                (widget-apply widget :custom-standard-value)
!                (if (memq (widget-get widget :custom-state)
!                          '(modified set changed saved rogue))
!                    (widget-apply widget :custom-reset-standard))))
!           children)))
  
  ;;; The Customize Commands
  
--- 800,817 ----
  making them as if they had never been customized at all."
    (interactive)
    (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))))
  
  ;;; The Customize Commands