Mercurial > emacs

diff lisp/cus-edit.el @ 67784:7c9d6a4a35c7

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(custom-face-state-set): Check theme-value.
author Chong Yidong <cyd@stupidchicken.com>
date Sat, 24 Dec 2005 01:35:53 +0000
parents 118df638c3ff
children 32dce3f26e21
line wrap: on
line diff
--- a/lisp/cus-edit.el	Sat Dec 24 01:26:54 2005 +0000
+++ b/lisp/cus-edit.el	Sat Dec 24 01:35:53 2005 +0000
@@ -3308,7 +3308,12 @@
 		   (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)