Commit 0357c7ae authored by Chong Yidong's avatar Chong Yidong
Browse files

* lisp/custom.el (custom-push-theme): Quote "changed" custom var entry.

parent af896da6
2011-03-21 Chong Yidong <cyd@stupidchicken.com>
* custom.el (custom-push-theme): Quote "changed" custom var entry.
2011-03-21 Leo Liu <sdl.web@gmail.com>
 
* ido.el (ido-read-internal): Add ido-selected to history instead
......
......@@ -849,10 +849,10 @@ See `custom-known-themes' for a list of known themes."
;; theme is later disabled.
(cond ((and (eq prop 'theme-value)
(boundp symbol))
(let ((sv (get symbol 'standard-value)))
(unless (and sv
(equal (eval (car sv)) (symbol-value symbol)))
(setq old (list (list 'changed (symbol-value symbol)))))))
(let ((sv (get symbol 'standard-value))
(val (symbol-value symbol)))
(unless (and sv (equal (eval (car sv)) val))
(setq old `((changed ,(custom-quote val)))))))
((and (facep symbol)
(not (face-attr-match-p
symbol
......
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