# HG changeset patch
# User Dan Nicolaescu <dann@ics.uci.edu>
# Date 1257316477 0
# Node ID f9569789f83f669de4d3d714cb95bf4eb2a922bc
# Parent  f8e3d9c78ae36187f3a076fcf4c853d5f55797e3
(custom-declare-group): Purecopy standard-value.
(custom-declare-group): Purecopy custom-prefix.

diff -r f8e3d9c78ae3 -r f9569789f83f lisp/ChangeLog
--- a/lisp/ChangeLog	Wed Nov 04 06:31:42 2009 +0000
+++ b/lisp/ChangeLog	Wed Nov 04 06:34:37 2009 +0000
@@ -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 -r f8e3d9c78ae3 -r f9569789f83f lisp/custom.el
--- a/lisp/custom.el	Wed Nov 04 06:31:42 2009 +0000
+++ b/lisp/custom.el	Wed Nov 04 06:34:37 2009 +0000
@@ -131,7 +131,7 @@
 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 @@
 	  (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))))))