Commit 3920868a authored by Dave Love's avatar Dave Love
Browse files

(custom-declare-variable): Purecopy value.

parent 291cfb96
1999-12-16 Dave Love <>
* 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.
......@@ -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.
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment