799 |
(interactive) |
(interactive) |
800 |
(let ((children custom-options)) |
(let ((children custom-options)) |
801 |
(mapc (lambda (widget) |
(mapc (lambda (widget) |
802 |
(and (widget-apply widget :custom-standard-value) |
(and (widget-get widget :custom-standard-value) |
803 |
|
(widget-apply widget :custom-standard-value) |
804 |
(if (memq (widget-get widget :custom-state) |
(if (memq (widget-get widget :custom-state) |
805 |
'(modified set changed saved rogue)) |
'(modified set changed saved rogue)) |
806 |
(widget-apply widget :custom-reset-standard)))) |
(widget-apply widget :custom-reset-standard)))) |
3398 |
|
|
3399 |
(define-widget 'face 'symbol |
(define-widget 'face 'symbol |
3400 |
"A Lisp face name (with sample)." |
"A Lisp face name (with sample)." |
3401 |
:format "%t: (%{sample%}) %v" |
:format "%{%t%}: (%{sample%}) %v" |
3402 |
:tag "Face" |
:tag "Face" |
3403 |
:value 'default |
:value 'default |
3404 |
:sample-face-get 'widget-face-sample-face-get |
:sample-face-get 'widget-face-sample-face-get |