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

Fixes: debbugs:15389

2 files changed, 5 insertions, 1 deletions

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.