eval-after-load fix

* lisp/subr.el (eval-after-load): Don't purecopy the form, so that it
can be nconc'd later on; reverts 2009-11-11 change.

Fixes: debbugs:13331

2 files changed, 4 insertions, 1 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 0b92be63916..04ba7f802ca 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2013-01-03  Glenn Morris  <rgm@gnu.org>
 
+        * subr.el (eval-after-load): Don't purecopy the form, so that it
+        can be nconc'd later on; reverts 2009-11-11 change.  (Bug#13331)
+
         * emacs-lisp/byte-run.el (defun): Place cl declarations
         after any interactive spec.  (Bug#13265)
 
diff --git a/lisp/subr.el b/lisp/subr.el
index ce7b74db4ce..eef8c46c7d6 100644
--- a/lisp/subr.el
+++ b/lisp/subr.el
@@ -1877,7 +1877,7 @@ This function makes or adds to an entry on `after-load-alist'."
                  ,form)))
       ;; Add FORM to the element unless it's already there.
       (unless (member form (cdr elt))
-        (nconc elt (purecopy (list form)))))))
+        (nconc elt (list form))))))
 
 (defvar after-load-functions nil
   "Special hook run after loading a file.