Mercurial > emacs
changeset 105943:39e6ad203eb0
(custom-declare-group): Purecopy load-file-name.
| author | Dan Nicolaescu <dann@ics.uci.edu> |
|---|---|
| date | Wed, 11 Nov 2009 06:12:21 +0000 |
| parents | 5fc80e6b5b7c |
| children | a465c7c7e59e |
| files | lisp/ChangeLog lisp/custom.el |
| diffstat | 2 files changed, 4 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Wed Nov 11 06:10:42 2009 +0000 +++ b/lisp/ChangeLog Wed Nov 11 06:12:21 2009 +0000 @@ -1,5 +1,7 @@ 2009-11-11 Dan Nicolaescu <dann@ics.uci.edu> + * custom.el (custom-declare-group): Purecopy load-file-name. + * subr.el (menu-bar-separator): New defconst. * net/eudc.el (eudc-tools-menu): * international/mule-cmds.el (set-coding-system-map)
--- a/lisp/custom.el Wed Nov 11 06:10:42 2009 +0000 +++ b/lisp/custom.el Wed Nov 11 06:12:21 2009 +0000 @@ -414,7 +414,8 @@ ;; Record the group on the `current' list. (let ((elt (assoc load-file-name custom-current-group-alist))) (if elt (setcdr elt symbol) - (push (cons load-file-name symbol) custom-current-group-alist))) + (push (cons (purecopy load-file-name) symbol) + custom-current-group-alist))) (run-hooks 'custom-define-hook) symbol)