From b6f8ba09c8465dc9a916d82837f81d3b1a4643d1 Mon Sep 17 00:00:00 2001 From: Dan Nicolaescu Date: Wed, 4 Nov 2009 06:34:37 +0000 Subject: [PATCH] (custom-declare-group): Purecopy standard-value. (custom-declare-group): Purecopy custom-prefix. --- lisp/ChangeLog | 3 +++ lisp/custom.el | 4 ++-- 2 files changed, 5 insertions(+), 2 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index d0bdc89b775..2bbd089c5ed 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,8 @@ 2009-11-03 Dan Nicolaescu + * custom.el (custom-declare-group): Purecopy standard-value. + (custom-declare-group): Purecopy custom-prefix. + * international/mule.el (load-with-code-conversion): Call do-after-load-evaluation unconditionally. diff --git a/lisp/custom.el b/lisp/custom.el index e3d3d9a63a0..b8021bf1df6 100644 --- a/lisp/custom.el +++ b/lisp/custom.el @@ -131,7 +131,7 @@ not the default value itself. DEFAULT is stored as SYMBOL's standard value, in SYMBOL's property `standard-value'. At the same time, SYMBOL's property `force-value' is set to nil, as the value is no longer rogue." - (put symbol 'standard-value (list default)) + (put symbol 'standard-value (purecopy (list default))) ;; Maybe this option was rogue in an earlier version. It no longer is. (when (get symbol 'force-value) (put symbol 'force-value nil)) @@ -407,7 +407,7 @@ for more information." (error "Keyword %s is missing an argument" keyword)) (setq args (cdr args)) (cond ((eq keyword :prefix) - (put symbol 'custom-prefix value)) + (put symbol 'custom-prefix (purecopy value))) (t (custom-handle-keyword symbol keyword value 'custom-group)))))) -- 2.39.2