[Emacs-diffs] Changes to emacs/lisp/cus-face.el

[Luc Teirlinck]

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