From b76747af07091b8e44df8f8351e3fef388d4f142 Mon Sep 17 00:00:00 2001 From: Chong Yidong Date: Wed, 4 Jan 2006 20:16:50 +0000 Subject: [PATCH] * cus-edit.el (custom-face-save): Push to theme-face before setting face spec. --- lisp/ChangeLog | 1 + lisp/cus-edit.el | 2 +- 2 files changed, 2 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 22d3d816b35..18dba595537 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -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. diff --git a/lisp/cus-edit.el b/lisp/cus-edit.el index 678fc71f621..98c343c4db8 100644 --- a/lisp/cus-edit.el +++ b/lisp/cus-edit.el @@ -3435,6 +3435,7 @@ Optional EVENT is the location for the menu." (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 @@ Optional EVENT is the location for the menu." (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) -- 2.39.2