From: Dan Nicolaescu <dann@ics.uci.edu>
Date: Wed, 4 Nov 2009 06:34:37 +0000 (+0000)
Subject: (custom-declare-group): Purecopy standard-value.
X-Git-Tag: emacs-pretest-23.1.90~570
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=b6f8ba09c8465dc9a916d82837f81d3b1a4643d1;p=emacs.git

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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index d0bdc89b775..2bbd089c5ed 100644
--- 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 e3d3d9a63a0..b8021bf1df6 100644
--- 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))))))