[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/cus-face.el
From: |
Luc Teirlinck |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/cus-face.el |
Date: |
Sun, 03 Jul 2005 21:44:38 -0400 |
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] Changes to emacs/lisp/cus-face.el,
Luc Teirlinck <=