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.

2 files changed, 7 insertions, 1 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 73ab97b1666..fa34d37b9cf 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -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 --git a/lisp/cus-edit.el b/lisp/cus-edit.el
index 06135b190c0..65aa085c0ef 100644
--- a/lisp/cus-edit.el
+++ b/lisp/cus-edit.el
@@ -2777,7 +2777,8 @@ SPEC must be a full face spec."
              (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