From 70128967dace2bdf6d9c4c713461ba7221942058 Mon Sep 17 00:00:00 2001 From: Chong Yidong Date: Sat, 24 Dec 2005 01:35:53 +0000 Subject: [PATCH] (custom-face-state-set): Check theme-value. --- lisp/ChangeLog | 3 ++- lisp/cus-edit.el | 7 ++++++- 2 files changed, 8 insertions(+), 2 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index dd952a3de2a..29437c27ce3 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -8,7 +8,8 @@ customization" button one line up. (custom-themed): New face. (custom-magic-alist): New value, THEMED, for theme settings. - (custom-variable-state-set): Check theme-value. + (custom-variable-state-set, custom-face-state-set): Check + theme-value. (custom-variable-reset-standard, custom-face-reset-standard): Remove theme setting entirely. diff --git a/lisp/cus-edit.el b/lisp/cus-edit.el index 109c36e0b0d..948d8329d9d 100644 --- a/lisp/cus-edit.el +++ b/lisp/cus-edit.el @@ -3308,7 +3308,12 @@ widget. If FILTER is nil, ACTION is always valid.") (setq temp (get symbol 'saved-face-comment)) (or tmp temp)) (if (equal temp comment) - 'saved + (cond + ((eq 'user (caar (get symbol 'theme-face))) + 'saved) + ((eq 'standard (caar (get symbol 'theme-face))) + 'changed) + (t 'themed)) 'changed)) ((get symbol 'face-defface-spec) (if (equal comment nil) -- 2.39.2