Mercurial > emacs
changeset 40825:22caa22b7399
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.
| author | Per Abrahamsen <abraham@dina.kvl.dk> |
|---|---|
| date | Thu, 08 Nov 2001 09:57:20 +0000 |
| parents | 40a1b665108c |
| children | 24ea3c263919 |
| files | lisp/ChangeLog lisp/cus-edit.el |
| diffstat | 2 files changed, 7 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- 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.
--- 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