diff options
| author | Dan Nicolaescu <dann@ics.uci.edu> | 2009-11-11 06:12:21 +0000 |
|---|---|---|
| committer | Dan Nicolaescu <dann@ics.uci.edu> | 2009-11-11 06:12:21 +0000 |
| commit | af89cf775938a950664dcfba4241f497014edf7e (patch) | |
| tree | f70f3358a31625bf829de109b8fd997f7128359c /lisp/custom.el | |
| parent | a4ada374d6f96b5a7b9fe8df57307fae3fcd3351 (diff) | |
| download | emacs-af89cf775938a950664dcfba4241f497014edf7e.tar.gz | |
(custom-declare-group): Purecopy load-file-name.
Diffstat (limited to 'lisp/custom.el')
| -rw-r--r-- | lisp/custom.el | 3 |
1 files changed, 2 insertions, 1 deletions
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) |