Fix custom-variable-reset-backup's use of customized-value property.

* cus-edit.el (custom-variable-reset-backup): Quote the value
before storing it in the customized-value property.

Fixes: debbugs:6712

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 93dd50b5ecbc600810f09ed29321725f877936c9..17cb98be6049ac6b4acff4511cebd7304678e610 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2012-02-05  Chong Yidong  <cyd@gnu.org>
 
+       * cus-edit.el (custom-variable-reset-backup): Quote the value
+       before storing it in the customized-value property (Bug#6712).
+
        * wid-edit.el (widget-field-value-get): New optional arg to
        suppress trailing whitespace truncation.
        (character): Use it (Bug#2689).

diff --git a/lisp/cus-edit.el b/lisp/cus-edit.el
index d7b1b6f94fbc45bb7731ad82ea5df2a1e4cd0434..e4d87b89450f238334ba460064bf2a16aacfb90d 100644 (file)
--- a/lisp/cus-edit.el
+++ b/lisp/cus-edit.el
@@ -3071,7 +3071,7 @@ to switch between two values."
              (funcall set symbol (car value))
             (error nil)))
       (error "No backup value for %s" symbol))
-    (put symbol 'customized-value (list (car value)))
+    (put symbol 'customized-value (list (custom-quote (car value))))
     (put symbol 'variable-comment comment)
     (put symbol 'customized-variable-comment comment)
     (custom-variable-state-set widget)