[Emacs-diffs] /srv/bzr/emacs/trunk r103708: * lisp/custom.el (custom-push-theme): Quote "changed" custom var entry.

[Chong Yidong]

------------------------------------------------------------
revno: 103708
committer: Chong Yidong <address@hidden>
branch nick: trunk
timestamp: Mon 2011-03-21 18:09:52 -0400
message:
  * lisp/custom.el (custom-push-theme): Quote "changed" custom var entry.
modified:
  lisp/ChangeLog
  lisp/custom.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2011-03-21 17:48:36 +0000
+++ b/lisp/ChangeLog    2011-03-21 22:09:52 +0000
@@ -1,3 +1,7 @@
+2011-03-21  Chong Yidong  <address@hidden>
+
+       * custom.el (custom-push-theme): Quote "changed" custom var entry.
+
 2011-03-21  Leo Liu  <address@hidden>
 
        * ido.el (ido-read-internal): Add ido-selected to history instead

=== modified file 'lisp/custom.el'
--- a/lisp/custom.el    2011-03-17 02:30:27 +0000
+++ b/lisp/custom.el    2011-03-21 22:09:52 +0000
@@ -849,10 +849,10 @@
        ;; 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