mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

(custom-declare-group): Purecopy load-file-name.

Browse source
This commit is contained in:
Dan Nicolaescu 2009-11-11 06:12:21 +00:00
parent a4ada374d6
commit af89cf7759
2 changed files with 4 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

3
lisp/custom.el
View file

@ -414,7 +414,8 @@ for more information."
;; 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)