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