diff options
| author | Chong Yidong <cyd@stupidchicken.com> | 2011-03-21 18:09:52 -0400 |
|---|---|---|
| committer | Chong Yidong <cyd@stupidchicken.com> | 2011-03-21 18:09:52 -0400 |
| commit | 0357c7ae9cf59511c28dccd566b89b5eadc7f62e (patch) | |
| tree | 31dd32d9956fd5013796a7f22235fa74dee40a9b /lisp/custom.el | |
| parent | af896da66a50ca020c8cb8293c4bf5ddfb0cb448 (diff) | |
| download | emacs-0357c7ae9cf59511c28dccd566b89b5eadc7f62e.tar.gz | |
* lisp/custom.el (custom-push-theme): Quote "changed" custom var entry.
Diffstat (limited to 'lisp/custom.el')
| -rw-r--r-- | lisp/custom.el | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lisp/custom.el b/lisp/custom.el index cf06fe27f4d..4f7826093e8 100644 --- a/lisp/custom.el +++ b/lisp/custom.el @@ -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 |