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:
parent
838ff45802
commit
428b13d63c
@ -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
|
||||
|
@ -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;
|
||||
|
Loading…
Reference in New Issue
Block a user