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

[bpt/emacs.git] / lisp / subr.el

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.