mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-28 10:56:36 +00:00
Code Issues Releases Activity

* cus-edit.el (custom-face-save): Push to theme-face before

Browse Source 
setting face spec.
This commit is contained in:
Chong Yidong 2006-01-04 20:16:50 +00:00
parent 913645cd75
commit b76747af07
2 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
lisp/ChangeLog
View File

@ -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.

2
lisp/cus-edit.el
View File

@ -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)