/[emacs]/emacs/lisp/cus-edit.el
ViewVC logotype

Diff of /emacs/lisp/cus-edit.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.241 by jurta, Thu Nov 17 07:18:07 2005 UTC revision 1.242 by teirllm, Tue Nov 22 23:28:28 2005 UTC
# Line 800  This operation eliminates any saved sett Line 800  This operation eliminates any saved sett
800  making them as if they had never been customized at all."  making them as if they had never been customized at all."
801    (interactive)    (interactive)
802    (let ((children custom-options))    (let ((children custom-options))
803      (mapc (lambda (widget)      (when (or (and (= 1 (length children))
804              (and (widget-get widget :custom-standard-value)                     (memq (widget-type (car children))
805                   (widget-apply widget :custom-standard-value)                           '(custom-variable custom-face)))
806                   (if (memq (widget-get widget :custom-state)                (yes-or-no-p "Really erase all customizations in this buffer? "))
807                             '(modified set changed saved rogue))        (mapc (lambda (widget)
808                       (widget-apply widget :custom-reset-standard))))                (and (if (widget-get widget :custom-standard-value)
809              children)))                         (widget-apply widget :custom-standard-value)
810                         t)
811                       (memq (widget-get widget :custom-state)
812                             '(modified set changed saved rogue))
813                       (widget-apply widget :custom-reset-standard)))
814                children))))
815    
816  ;;; The Customize Commands  ;;; The Customize Commands
817    

Legend:
Removed from v.1.241  
changed lines
  Added in v.1.242

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26