From 61763509f2b1c8ab244d7941acb1337b9154d819 Mon Sep 17 00:00:00 2001 From: Per Abrahamsen Date: Thu, 8 Nov 2001 09:57:20 +0000 Subject: [PATCH] 2001-11-07 Per Abrahamsen * cus-edit.el (custom-face-value-create): Don't ignore the `customized-face' attribute when finding the current face spec. --- lisp/ChangeLog | 5 +++++ lisp/cus-edit.el | 3 ++- 2 files changed, 7 insertions(+), 1 deletion(-) 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 + + * 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 * 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 -- 2.39.5