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 --git a/lisp/ChangeLog b/lisp/ChangeLog
index 73ab97b16669e005ceeca2e14ae82fbdb9a41191..fa34d37b9cfb53632d9f1c3bac33cde1074bb3d8 100644 (file)
--- 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 06135b190c0341274e8505059798a5fd636c5cef..65aa085c0ef9d9360ada04e8ff77650099762a03 100644 (file)
--- 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