Commit 403546cb authored by Luc Teirlinck's avatar Luc Teirlinck
Browse files

(custom-theme-set-faces): Make it handle face aliases whose alias

declarations are pre- or autoloaded.
parent 29a05cd1
......@@ -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))))))))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment