Mercurial > emacs

changeset 71953:2cbf89629cad

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(custom-variable-state-set): If the variable was originally set outside custom, but to the same value as the default, consider it to be standard.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Mon, 17 Jul 2006 21:24:17 +0000
parents 5021520a58bd
children 628aeba24139
files lisp/cus-edit.el
diffstat 1 files changed, 12 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/cus-edit.el	Mon Jul 17 21:22:50 2006 +0000
+++ b/lisp/cus-edit.el	Mon Jul 17 21:24:17 2006 +0000
@@ -2668,7 +2668,18 @@
 			     (error nil))
 			   (cond
 			    ((eq (caar tmp) 'user) 'saved)
-			    ((eq (caar tmp) 'changed) 'changed)
+			    ((eq (caar tmp) 'changed)
+                             (if (condition-case nil
+                                     (and (null comment)
+                                          (equal value
+                                                 (eval
+                                                  (car (get symbol 'standard-value)))))
+                                   (error nil))
+                                 ;; The value was originally set outside
+                                 ;; custom, but it was set to the standard
+                                 ;; value (probably an autoloaded defcustom).
+                                 'standard
+                               'changed))
 			    (t 'themed))
 			 'changed))
 		      ((setq tmp (get symbol 'standard-value))