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

Fixes: debbugs:15389

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 1ea13a9..7cb08cf 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 0434e38..cf16897 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.