diff options
| -rw-r--r-- | lisp/cus-edit.el | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/lisp/cus-edit.el b/lisp/cus-edit.el index 0bd2e9bc5a8..63a0f388f56 100644 --- a/lisp/cus-edit.el +++ b/lisp/cus-edit.el | |||
| @@ -799,7 +799,8 @@ making them as if they had never been customized at all." | |||
| 799 | (interactive) | 799 | (interactive) |
| 800 | (let ((children custom-options)) | 800 | (let ((children custom-options)) |
| 801 | (mapc (lambda (widget) | 801 | (mapc (lambda (widget) |
| 802 | (and (widget-apply widget :custom-standard-value) | 802 | (and (widget-get widget :custom-standard-value) |
| 803 | (widget-apply widget :custom-standard-value) | ||
| 803 | (if (memq (widget-get widget :custom-state) | 804 | (if (memq (widget-get widget :custom-state) |
| 804 | '(modified set changed saved rogue)) | 805 | '(modified set changed saved rogue)) |
| 805 | (widget-apply widget :custom-reset-standard)))) | 806 | (widget-apply widget :custom-reset-standard)))) |
| @@ -3397,7 +3398,7 @@ restoring it to the state of a face that has never been customized." | |||
| 3397 | 3398 | ||
| 3398 | (define-widget 'face 'symbol | 3399 | (define-widget 'face 'symbol |
| 3399 | "A Lisp face name (with sample)." | 3400 | "A Lisp face name (with sample)." |
| 3400 | :format "%t: (%{sample%}) %v" | 3401 | :format "%{%t%}: (%{sample%}) %v" |
| 3401 | :tag "Face" | 3402 | :tag "Face" |
| 3402 | :value 'default | 3403 | :value 'default |
| 3403 | :sample-face-get 'widget-face-sample-face-get | 3404 | :sample-face-get 'widget-face-sample-face-get |