(custom-declare-group): Purecopy standard-value.

(custom-declare-group): Purecopy custom-prefix.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index d0bdc89b775410007874ae50390a3c4d84672ca2..2bbd089c5ed07184f8d2f957c1cca7fee88df9a4 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2009-11-03  Dan Nicolaescu  <dann@ics.uci.edu>
 
+       * custom.el (custom-declare-group): Purecopy standard-value.
+       (custom-declare-group): Purecopy custom-prefix.
+
        * international/mule.el (load-with-code-conversion): Call
        do-after-load-evaluation unconditionally.
 

diff --git a/lisp/custom.el b/lisp/custom.el
index e3d3d9a63a088080814cd57ccd69c890f8823141..b8021bf1df6f826f1ebe9a977d531b581460b056 100644 (file)
--- a/lisp/custom.el
+++ b/lisp/custom.el
@@ -131,7 +131,7 @@ not the default value itself.
 DEFAULT is stored as SYMBOL's standard value, in SYMBOL's property
 `standard-value'.  At the same time, SYMBOL's property `force-value' is
 set to nil, as the value is no longer rogue."
-  (put symbol 'standard-value (list default))
+  (put symbol 'standard-value (purecopy (list default)))
   ;; Maybe this option was rogue in an earlier version.  It no longer is.
   (when (get symbol 'force-value)
     (put symbol 'force-value nil))
@@ -407,7 +407,7 @@ for more information."
          (error "Keyword %s is missing an argument" keyword))
        (setq args (cdr args))
        (cond ((eq keyword :prefix)
-              (put symbol 'custom-prefix value))
+              (put symbol 'custom-prefix (purecopy value)))
              (t
               (custom-handle-keyword symbol keyword value
                                      'custom-group))))))