* lisp/emacs-lisp/package.el: Revert buffer after any operation

[gnu-emacs] / lisp / custom.el

diff --git a/lisp/custom.el b/lisp/custom.el
index e5fe0ebaedd9393c35e62333e60659a8d6aa71ce..ea5ab7a4773ba7d89197c60ced6ceab55f211ed2 100644 (file)
--- 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)