# HG changeset patch
# User Luc Teirlinck <teirllm@auburn.edu>
# Date 1120441478 0
# Node ID 3314a44dacf788815c36de94fcb9cfc6a26898d5
# Parent  24da8be87a7ddca17e61002b17dc6bdc43e092bd
(custom-theme-set-faces): Make it handle face aliases whose alias
declarations are pre- or autoloaded.

diff -r 24da8be87a7d -r 3314a44dacf7 lisp/cus-face.el
--- a/lisp/cus-face.el	Mon Jul 04 01:40:42 2005 +0000
+++ b/lisp/cus-face.el	Mon Jul 04 01:44:38 2005 +0000
@@ -320,6 +320,10 @@
 		  (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 @@
 	;; 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))))))))