(custom-declare-variable): Purecopy value.

2 files changed, 5 insertions, 1 deletions

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.