From: Dave Love <fx@gnu.org>
Date: Thu, 16 Dec 1999 19:43:46 +0000 (+0000)
Subject: (custom-declare-variable): Purecopy value.
X-Git-Tag: emacs-pretest-21.0.90~5685
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=3920868a41a77ff596b9eba61220df991eb03043;p=emacs.git

(custom-declare-variable): Purecopy value.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 7a66115d263..8b13dd45005 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,9 @@
 1999-12-16  Dave Love  <fx@gnu.org>
 
+	* faces.el (set-face-attribute): Purecopy the attributes set.
+
+	* custom.el (custom-declare-variable): Purecopy value.
+
 	* bytecomp.el (byte-compile-bound-variables): Doc fix.
 	(byte-extrude-byte-code-vectors): Use remprop.
 	(byte-compile-lambda): Check that arg is a lambda.
diff --git a/lisp/custom.el b/lisp/custom.el
index 1d7bf311ea4..de757f8b3e7 100644
--- a/lisp/custom.el
+++ b/lisp/custom.el
@@ -135,7 +135,7 @@ not the default value itself."
 		((eq keyword :require)
 		 (setq requests (cons value requests)))
 		((eq keyword :type)
-		 (put symbol 'custom-type value))
+		 (put symbol 'custom-type (purecopy value)))
 		((eq keyword :options)
 		 (if (get symbol 'custom-options)
 		     ;; Slow safe code to avoid duplicates.