Index: lisp/ChangeLog
===================================================================
RCS file: /cvsroot/emacs//emacs/lisp/ChangeLog,v
retrieving revision 1.2979
diff -c -r1.2979 ChangeLog
*** lisp/ChangeLog	2001/11/07 08:03:55	1.2979
--- lisp/ChangeLog	2001/11/07 08:26:26
***************
*** 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  Miles Bader  <miles@gnu.org>
  
  	* paren.el (show-paren-match-face): Add dark-background variant.
Index: lisp/cus-edit.el
===================================================================
RCS file: /cvsroot/emacs//emacs/lisp/cus-edit.el,v
retrieving revision 1.136
diff -c -r1.136 cus-edit.el
*** lisp/cus-edit.el	2001/11/07 08:03:55	1.136
--- lisp/cus-edit.el	2001/11/07 08:26:27
***************
*** 2777,2783 ****
  	     (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)
  			      (get symbol 'face-defface-spec)
  			      ;; Attempt to construct it.
  			      (list (list t (custom-face-attributes-get
--- 2777,2784 ----
  	     (unless (widget-get widget :custom-form)
  		 (widget-put widget :custom-form custom-face-default-form))
  	     (let* ((symbol (widget-value widget))
! 		    (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