# HG changeset patch
# User Dan Nicolaescu <dann@ics.uci.edu>
# Date 1257919941 0
# Node ID 39e6ad203eb0036cfee53fb6843431837e168d5e
# Parent  5fc80e6b5b7cb02ee66f530eb33a7c07e43dcc2a
(custom-declare-group): Purecopy load-file-name.

diff -r 5fc80e6b5b7c -r 39e6ad203eb0 lisp/ChangeLog
--- 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)
diff -r 5fc80e6b5b7c -r 39e6ad203eb0 lisp/custom.el
--- 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)