[Emacs-diffs] Changes to emacs/lisp/cus-edit.el

[Chong Yidong]

Index: emacs/lisp/cus-edit.el
diff -u emacs/lisp/cus-edit.el:1.255 emacs/lisp/cus-edit.el:1.256
--- emacs/lisp/cus-edit.el:1.255        Sat Dec 24 01:26:54 2005
+++ emacs/lisp/cus-edit.el      Sat Dec 24 01:35:53 2005
@@ -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)