From af89cf775938a950664dcfba4241f497014edf7e Mon Sep 17 00:00:00 2001 From: Dan Nicolaescu Date: Wed, 11 Nov 2009 06:12:21 +0000 Subject: [PATCH] (custom-declare-group): Purecopy load-file-name. --- lisp/ChangeLog | 2 ++ lisp/custom.el | 3 ++- 2 files changed, 4 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index c63187e92b2..1f0ddc1217a 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,7 @@ 2009-11-11 Dan Nicolaescu + * 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 b8021bf1df6..b9988530e3c 100644 --- 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) -- 2.39.2