(custom-declare-variable): Purecopy value.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 7a66115d2634f251f6bd26f4c5e0fa4e21230fa3..8b13dd45005987c6ffcb30933aad664e0fda65fc 100644 (file)
--- 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 1d7bf311ea4915a21c908e645f0ee873da94dfab..de757f8b3e764f7bd6ce72c4f2ea48d79a0ac053 100644 (file)
--- 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.