mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-29 07:58:28 +00:00
Code Issues Releases Activity

(custom-declare-group): Purecopy standard-value.

Browse Source 
(custom-declare-group): Purecopy custom-prefix.
This commit is contained in:
Dan Nicolaescu 2009-11-04 06:34:37 +00:00
parent 5d28d4b18b
commit b6f8ba09c8
2 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lisp/ChangeLog
View File

@ -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.

4
lisp/custom.el
View File

@ -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))))))