Commit af89cf77 authored by Dan Nicolaescu's avatar Dan Nicolaescu
Browse files

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

parent a4ada374
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)
......
......@@ -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)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment