# HG changeset patch
# User Per Abrahamsen <abraham@dina.kvl.dk>
# Date 1005213440 0
# Node ID 22caa22b73990b1e1b92ff602675e3b71f2d1efe
# Parent  40a1b665108c4d0c617878b3389736360a617657
2001-11-07  Per Abrahamsen  <abraham@dina.kvl.dk>

	* cus-edit.el (custom-face-value-create): Don't ignore the
	`customized-face' attribute when finding the current face spec.

diff -r 40a1b665108c -r 22caa22b7399 lisp/ChangeLog
--- a/lisp/ChangeLog	Thu Nov 08 08:16:34 2001 +0000
+++ b/lisp/ChangeLog	Thu Nov 08 09:57:20 2001 +0000
@@ -1,3 +1,8 @@
+2001-11-07  Per Abrahamsen  <abraham@dina.kvl.dk>
+
+	* cus-edit.el (custom-face-value-create): Don't ignore the
+	`customized-face' attribute when finding the current face spec.
+
 2001-11-07  Stefan Monnier  <monnier@cs.yale.edu>
 
 	* subr.el (with-local-quit): New macro.
diff -r 40a1b665108c -r 22caa22b7399 lisp/cus-edit.el
--- a/lisp/cus-edit.el	Thu Nov 08 08:16:34 2001 +0000
+++ b/lisp/cus-edit.el	Thu Nov 08 09:57:20 2001 +0000
@@ -2777,7 +2777,8 @@
 	     (unless (widget-get widget :custom-form)
 		 (widget-put widget :custom-form custom-face-default-form))
 	     (let* ((symbol (widget-value widget))
-		    (spec (or (get symbol 'saved-face)
+		    (spec (or (get symbol 'customized-face)
+			      (get symbol 'saved-face)
 			      (get symbol 'face-defface-spec)
 			      ;; Attempt to construct it.
 			      (list (list t (custom-face-attributes-get