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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index c63187e92b21b97b235abe2faee7769dfce6a167..1f0ddc1217a35941891b04b07a9095b393611cba 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -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 --git a/lisp/custom.el b/lisp/custom.el
index b8021bf1df6f826f1ebe9a977d531b581460b056..b9988530e3c648874cb28f6d29b70e9efcc607cd 100644 (file)
--- 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)