From 1809eef8b7f87b7d98b414f20ef61608e0582b0d Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Mon, 16 Sep 2013 12:29:46 -0400 Subject: [PATCH] * lisp/subr.el (eval-after-load): Preserve evaluation order. Fixes: debbugs:15389 --- lisp/ChangeLog | 4 ++++ lisp/subr.el | 2 +- 2 files changed, 5 insertions(+), 1 deletion(-) 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 + + * subr.el (eval-after-load): Preserve evaluation order (bug#15389). + 2013-09-12 Stefan Monnier * 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. -- 2.11.4.GIT