Mercurial > emacs
changeset 105855:f9569789f83f
(custom-declare-group): Purecopy standard-value.
(custom-declare-group): Purecopy custom-prefix.
| author | Dan Nicolaescu <dann@ics.uci.edu> |
|---|---|
| date | Wed, 04 Nov 2009 06:34:37 +0000 |
| parents | f8e3d9c78ae3 |
| children | 55cefc906ff3 |
| files | lisp/ChangeLog lisp/custom.el |
| diffstat | 2 files changed, 5 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Wed Nov 04 06:31:42 2009 +0000 +++ b/lisp/ChangeLog Wed Nov 04 06:34:37 2009 +0000 @@ -1,5 +1,8 @@ 2009-11-03 Dan Nicolaescu <dann@ics.uci.edu> + * 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.
--- a/lisp/custom.el Wed Nov 04 06:31:42 2009 +0000 +++ b/lisp/custom.el Wed Nov 04 06:34:37 2009 +0000 @@ -131,7 +131,7 @@ 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 @@ (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))))))