Re: address@hidden: Re: erase customization does not work]

[Luc Teirlinck]

There was a mistake in my previous patch.  Below is a corrected version.

Also, unlike what I told before, the question would always be asked in
group buffers, even if they contained only one item (which is rare),
but not in buffers gotten with customize-option or customize-face (my
main concern).  The question would also not be asked in non-group
buffers with only one option, say buffers gotten with
customize-apropos, where the search yielded only one result.  (These
are the ones that are difficult to distinguish from
customize-{option,face} buffers.)

Corrected patch:

===File ~/cus-edit-diff=====================================
*** cus-edit.el 17 Nov 2005 10:24:20 -0600      1.241
--- cus-edit.el 21 Nov 2005 22:15:33 -0600      
***************
*** 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,816 ----
  making them as if they had never been customized at all."
    (interactive)
    (let ((children custom-options))
!     (when (or (and (= 1 (length children))
!                  (widget-get (car children) :custom-standard-value))
!             (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
  
============================================================