1
0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-26 07:33:47 +00:00

(Fload): Also run do-after-load-evaluation while dumping.

This commit is contained in:
Stefan Monnier 2009-09-15 03:45:51 +00:00
parent 838ff45802
commit 428b13d63c
2 changed files with 5 additions and 2 deletions

View File

@ -1,3 +1,7 @@
2009-09-15 Stefan Monnier <monnier@iro.umontreal.ca>
* lread.c (Fload): Also run do-after-load-evaluation while dumping.
2009-09-12 Stefan Monnier <monnier@iro.umontreal.ca>
* lread.c (Fload): Don't output a message after loading an obsolete

View File

@ -1279,8 +1279,7 @@ Return t if the file exists and loads successfully. */)
unbind_to (count, Qnil);
/* Run any eval-after-load forms for this file */
if (NILP (Vpurify_flag)
&& (!NILP (Ffboundp (Qdo_after_load_evaluation))))
if (!NILP (Ffboundp (Qdo_after_load_evaluation)))
call1 (Qdo_after_load_evaluation, hist_file_name) ;
UNGCPRO;