X-Git-Url: https://code.delx.au/gnu-emacs/blobdiff_plain/58aa0dad3645cec66aa4bdda87cfd5f67f0a1e93..52da972751d50c2bf27315c7cad96a185b5eb103:/lisp/custom.el

diff --git a/lisp/custom.el b/lisp/custom.el
index e5fe0ebaed..ea5ab7a477 100644
--- a/lisp/custom.el
+++ b/lisp/custom.el
@@ -449,8 +449,7 @@ 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 (purecopy load-file-name) symbol)
-	    custom-current-group-alist)))
+      (push (cons load-file-name symbol) custom-current-group-alist)))
   (run-hooks 'custom-define-hook)
   symbol)