Commit e58d8ef5 authored by Chong Yidong's avatar Chong Yidong
Browse files

* custom.el (custom-push-theme): Load the variable before checking

	its `standard-value'.
parent 9fbcde29
2006-05-13 Chong Yidong <cyd@stupidchicken.com>
* custom.el (custom-push-theme): Load the variable before checking
its `standard-value'.
2006-05-13 Lars Hansen <larsh@soem.dk>
* desktop.el (desktop-save): Use with-temp-buffer.
 
2006-05-12 Glenn Morris <rgm@gnu.org>
......
......@@ -825,11 +825,15 @@ See `custom-known-themes' for a list of known themes."
;; theme is later disabled.
(if (null old)
(if (and (eq prop 'theme-value)
(boundp symbol)
(or (null (get symbol 'standard-value))
(not (equal (eval (car (get symbol 'standard-value)))
(symbol-value symbol)))))
(setq old (list (list 'changed (symbol-value symbol))))
(boundp symbol))
(let ((sv (get symbol 'standard-value)))
(when (and (null sv) (custom-variable-p symbol))
(custom-load-symbol symbol)
(setq sv (get symbol 'standard-value)))
(if (or (null sv)
(not (equal (eval (car (get symbol 'standard-value)))
(symbol-value symbol))))
(setq old (list (list 'changed (symbol-value symbol))))))
(if (and (facep symbol)
(not (face-spec-match-p symbol (get symbol 'face-defface-spec))))
(setq old (list (list 'changed (list
......
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