# HG changeset patch
# User Chong Yidong <cyd@stupidchicken.com>
# Date 1136405810 0
# Node ID c7ec296cf31378c540d1bf2c0c26ac636fee721a
# Parent  e8dc530d7ee1b4883c608c8202005589f45f3a80
	* cus-edit.el (custom-face-save): Push to theme-face before
          setting face spec.

diff -r e8dc530d7ee1 -r c7ec296cf313 lisp/ChangeLog
--- a/lisp/ChangeLog	Wed Jan 04 18:12:27 2006 +0000
+++ b/lisp/ChangeLog	Wed Jan 04 20:16:50 2006 +0000
@@ -7,6 +7,7 @@
 	(Custom-reset-standard): Fix y-or-n-p messages.
 	(custom-link): New face for links.
 	(custom-buffer-create-internal, custom-manual): Use it.
+	(custom-face-save): Push to theme-face before setting face spec.
 
 	* wid-edit.el (widget-default-mouse-face-get): New function.
 	(widget-specify-button): Handle mouse-face like button-face.
diff -r e8dc530d7ee1 -r c7ec296cf313 lisp/cus-edit.el
--- a/lisp/cus-edit.el	Wed Jan 04 18:12:27 2006 +0000
+++ b/lisp/cus-edit.el	Wed Jan 04 20:16:50 2006 +0000
@@ -3435,6 +3435,7 @@
       (setq comment nil)
       ;; Make the comment invisible by hand if it's empty
       (custom-comment-hide comment-widget))
+    (custom-push-theme 'theme-face symbol 'user 'set value)
     (if (face-spec-choose value)
 	(face-spec-set symbol value)
       ;; face-set-spec ignores empty attribute lists, so just give it
@@ -3442,7 +3443,6 @@
       (face-spec-set symbol '((t :foreground unspecified))))
     (unless (eq (widget-get widget :custom-state) 'standard)
       (put symbol 'saved-face value))
-    (custom-push-theme 'theme-face symbol 'user 'set value)
     (put symbol 'customized-face nil)
     (put symbol 'face-comment comment)
     (put symbol 'customized-face-comment nil)