diff options
| author | Richard M. Stallman <rms@gnu.org> | 2007-12-30 03:36:05 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 2007-12-30 03:36:05 +0000 |
| commit | d50e9d5b1708321ca30095c38a365b18ef9550ea (patch) | |
| tree | e19a182e202fb60ef0cc5fdb3a28f1398ae6b05b /lisp/cus-edit.el | |
| parent | af4bbb690bbee58151f4f6122174fc036228155c (diff) | |
| download | emacs-d50e9d5b1708321ca30095c38a365b18ef9550ea.tar.gz emacs-d50e9d5b1708321ca30095c38a365b18ef9550ea.tar.bz2 emacs-d50e9d5b1708321ca30095c38a365b18ef9550ea.zip | |
(custom-face-set): Call `face-spec-set' with FOR-DEFFACE.
(custom-face-save): Likewise.
(custom-face-reset-saved, custom-face-reset-standard): Likewise.
Diffstat (limited to 'lisp/cus-edit.el')
| -rw-r--r-- | lisp/cus-edit.el | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/lisp/cus-edit.el b/lisp/cus-edit.el index b9e462ec05f..e2b885c6902 100644 --- a/lisp/cus-edit.el +++ b/lisp/cus-edit.el @@ -3496,10 +3496,10 @@ Optional EVENT is the location for the menu." (put symbol 'customized-face value) (custom-push-theme 'theme-face symbol 'user 'set value) (if (face-spec-choose value) - (face-spec-set symbol value) + (face-spec-set symbol value t) ;; face-set-spec ignores empty attribute lists, so just give it ;; something harmless instead. - (face-spec-set symbol '((t :foreground unspecified)))) + (face-spec-set symbol '((t :foreground unspecified)) t)) (put symbol 'customized-face-comment comment) (put symbol 'face-comment comment) (custom-face-state-set widget) @@ -3518,10 +3518,10 @@ Optional EVENT is the location for the menu." (custom-comment-hide comment-widget)) (custom-push-theme 'theme-face symbol 'user 'set value) (if (face-spec-choose value) - (face-spec-set symbol value) + (face-spec-set symbol value t) ;; face-set-spec ignores empty attribute lists, so just give it ;; something harmless instead. - (face-spec-set symbol '((t :foreground unspecified)))) + (face-spec-set symbol '((t :foreground unspecified)) t)) (unless (eq (widget-get widget :custom-state) 'standard) (put symbol 'saved-face value)) (put symbol 'customized-face nil) @@ -3548,7 +3548,7 @@ Optional EVENT is the location for the menu." (put symbol 'customized-face nil) (put symbol 'customized-face-comment nil) (custom-push-theme 'theme-face symbol 'user 'set value) - (face-spec-set symbol value) + (face-spec-set symbol value t) (put symbol 'face-comment comment) (widget-value-set child value) ;; This call manages the comment visibility @@ -3572,7 +3572,7 @@ restoring it to the state of a face that has never been customized." (put symbol 'customized-face nil) (put symbol 'customized-face-comment nil) (custom-push-theme 'theme-face symbol 'user 'reset) - (face-spec-set symbol value) + (face-spec-set symbol value t) (custom-theme-recalc-face symbol) (when (or (get symbol 'saved-face) (get symbol 'saved-face-comment)) (put symbol 'saved-face nil) |