From: Glenn Morris <rgm@gnu.org>
Date: Thu, 3 Jan 2013 00:50:35 +0000 (-0800)
Subject: eval-after-load fix
X-Git-Tag: emacs-24.2.92~50
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=ed5bdeb9687d7942f9b1ec8fefe906f004c50055;p=emacs.git

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 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.