# HG changeset patch
# User Dave Love <fx@gnu.org>
# Date 945373322 0
# Node ID 755f54893c1fc8a967cb36831deea9a7f5a5d418
# Parent  27d6c0e07ea85ac3c2d136d3b187376256df7c9e
(custom-declare-variable): Purecopy value.

diff -r 27d6c0e07ea8 -r 755f54893c1f lisp/custom.el
--- a/lisp/custom.el	Thu Dec 16 19:41:04 1999 +0000
+++ b/lisp/custom.el	Thu Dec 16 19:42:02 1999 +0000
@@ -135,7 +135,7 @@
 		((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.