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

Fixes: debbugs:15389

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 1ea13a9a0be05e89f0d302ebce2e16703c64ac01..7cb08cf59caae45a21245079a32ff6e1fb52b058 100644 (file)
--- 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 0434e3856f99ba39309270fd996a28ea8bce7113..cf168971812388ce4925fe7dbfe0f695b1db6f77 100644 (file)
--- 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.