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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 0b92be639167be4981eeeef6ac0adccc352cf1ad..04ba7f802cacba81fc2bcb4660c372ce2f759fd8 100644 (file)
--- 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 ce7b74db4ce29cac911e6bbe894e9030e557270a..eef8c46c7d61bf8914296eac1c942e247c077ff0 100644 (file)
--- 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.