Mercurial > emacs
changeset 68026:c7ec296cf313
* cus-edit.el (custom-face-save): Push to theme-face before
setting face spec.
| author | Chong Yidong <cyd@stupidchicken.com> |
|---|---|
| date | Wed, 04 Jan 2006 20:16:50 +0000 |
| parents | e8dc530d7ee1 |
| children | 606e8e24acfe |
| files | lisp/ChangeLog lisp/cus-edit.el |
| diffstat | 2 files changed, 2 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Wed Jan 04 18:12:27 2006 +0000 +++ b/lisp/ChangeLog Wed Jan 04 20:16:50 2006 +0000 @@ -7,6 +7,7 @@ (Custom-reset-standard): Fix y-or-n-p messages. (custom-link): New face for links. (custom-buffer-create-internal, custom-manual): Use it. + (custom-face-save): Push to theme-face before setting face spec. * wid-edit.el (widget-default-mouse-face-get): New function. (widget-specify-button): Handle mouse-face like button-face.
--- a/lisp/cus-edit.el Wed Jan 04 18:12:27 2006 +0000 +++ b/lisp/cus-edit.el Wed Jan 04 20:16:50 2006 +0000 @@ -3435,6 +3435,7 @@ (setq comment nil) ;; Make the comment invisible by hand if it's empty (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-set-spec ignores empty attribute lists, so just give it @@ -3442,7 +3443,6 @@ (face-spec-set symbol '((t :foreground unspecified)))) (unless (eq (widget-get widget :custom-state) 'standard) (put symbol 'saved-face value)) - (custom-push-theme 'theme-face symbol 'user 'set value) (put symbol 'customized-face nil) (put symbol 'face-comment comment) (put symbol 'customized-face-comment nil)