Re: [Martin.Buchmann@uni-jena.de: Re: erase customization does not work]

[Luc Teirlinck <teirllm@dms.auburn.edu>]

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
  
============================================================