From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Mon, 16 Sep 2013 16:29:46 +0000 (-0400)
Subject: * lisp/subr.el (eval-after-load): Preserve evaluation order.
X-Git-Tag: emacs-24.3.90~173^2^2~42^2~45^2~387^2~1593^2~2
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=1809eef8b7f87b7d98b414f20ef61608e0582b0d;p=emacs.git

* lisp/subr.el (eval-after-load): Preserve evaluation order.

Fixes: debbugs:15389
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 1ea13a9a0be..7cb08cf59ca 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2013-09-16  Stefan Monnier  <monnier@iro.umontreal.ca>
+
+	* subr.el (eval-after-load): Preserve evaluation order (bug#15389).
+
 2013-09-12  Stefan Monnier  <monnier@iro.umontreal.ca>
 
 	* abbrev.el (abbrev--check-chars): Fix thinko (bug#15329).
diff --git a/lisp/subr.el b/lisp/subr.el
index 0434e3856f9..cf168971812 100644
--- a/lisp/subr.el
+++ b/lisp/subr.el
@@ -1872,7 +1872,7 @@ This function makes or adds to an entry on `after-load-alist'."
 				      nil
 				    (remove-hook 'after-load-functions ',fun)
 				    ,',form)))
-		     (add-hook 'after-load-functions fun))
+		     (add-hook 'after-load-functions fun 'append))
 		 ;; Not being provided from a file, run form right now.
 		 ,form)))
       ;; Add FORM to the element unless it's already there.