Commit e0a0d9fe authored by Stefan Monnier's avatar Stefan Monnier
Browse files

(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.
parent a6f6840e
...@@ -2668,7 +2668,18 @@ Otherwise, look up symbol in `custom-guess-type-alist'." ...@@ -2668,7 +2668,18 @@ Otherwise, look up symbol in `custom-guess-type-alist'."
(error nil)) (error nil))
(cond (cond
((eq (caar tmp) 'user) 'saved) ((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)) (t 'themed))
'changed)) 'changed))
((setq tmp (get symbol 'standard-value)) ((setq tmp (get symbol 'standard-value))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment