Index: emacs/lisp/cus-face.el
diff -c emacs/lisp/cus-face.el:1.37 emacs/lisp/cus-face.el:1.38
*** emacs/lisp/cus-face.el:1.37 Sat Jun 25 14:12:45 2005
--- emacs/lisp/cus-face.el Mon Jul 4 01:44:38 2005
***************
*** 320,325 ****
--- 320,329 ----
(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,339 ****
--- 338,345 ----
;; 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))))))))
_______________________________________________
Emacs-diffs mailing list
[email protected]
http://lists.gnu.org/mailman/listinfo/emacs-diffs
