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

af89cf77 · Dan Nicolaescu · a4ada374 · af89cf77 · af89cf77
Commit af89cf77 authored Nov 11, 2009 by Dan Nicolaescu
Hide whitespace changes
Inline Side-by-side

Showing with 4 additions and 1 deletion

lisp/ChangeLog lisp/ChangeLog +2 -0

lisp/custom.el lisp/custom.el +2 -1

No files found.
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
 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
+++ b/lisp/custom.el
@@ -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)