diff options
| author | Luc Teirlinck <teirllm@auburn.edu> | 2005-07-04 01:44:38 +0000 |
|---|---|---|
| committer | Luc Teirlinck <teirllm@auburn.edu> | 2005-07-04 01:44:38 +0000 |
| commit | 403546cb0f95f9c59fe63d702703637cf237f321 (patch) | |
| tree | b5ca0bb985b983ffc5158cef44947ef18124e685 /lisp/cus-face.el | |
| parent | 29a05cd12b136affabed8a97c76bfb77bc6f897d (diff) | |
| download | emacs-403546cb0f95f9c59fe63d702703637cf237f321.tar.gz | |
(custom-theme-set-faces): Make it handle face aliases whose alias
declarations are pre- or autoloaded.
Diffstat (limited to 'lisp/cus-face.el')
| -rw-r--r-- | lisp/cus-face.el | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/lisp/cus-face.el b/lisp/cus-face.el index 054ad9acaa3..2a0198689de 100644 --- a/lisp/cus-face.el +++ b/lisp/cus-face.el @@ -320,6 +320,10 @@ FACE's list property `theme-face' \(using `custom-push-theme')." (spec (nth 1 entry)) (now (nth 2 entry)) (comment (nth 3 entry))) + ;; If FACE is actually an alias, customize the face it + ;; is aliased to. + (if (get face 'face-alias) + (setq face (get face 'face-alias))) (put face 'saved-face spec) (put face 'saved-face-comment comment) (custom-push-theme 'theme-face face theme 'set spec) @@ -334,6 +338,8 @@ FACE's list property `theme-face' \(using `custom-push-theme')." ;; Old format, a plist of FACE SPEC pairs. (let ((face (nth 0 args)) (spec (nth 1 args))) + (if (get face 'face-alias) + (setq face (get face 'face-alias))) (put face 'saved-face spec) (custom-push-theme 'theme-face face theme 'set spec)) (setq args (cdr (cdr args)))))))) |