From 428b13d63c9041a71b06b6add5eeeed4b3c7ceaa Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Tue, 15 Sep 2009 03:45:51 +0000 Subject: [PATCH] (Fload): Also run do-after-load-evaluation while dumping. --- src/ChangeLog | 4 ++++ src/lread.c | 3 +-- 2 files changed, 5 insertions(+), 2 deletions(-) diff --git a/src/ChangeLog b/src/ChangeLog index 3d3403645b1..bdbb03e389f 100644 --- a/src/ChangeLog +++ b/src/ChangeLog @@ -1,3 +1,7 @@ +2009-09-15 Stefan Monnier + + * lread.c (Fload): Also run do-after-load-evaluation while dumping. + 2009-09-12 Stefan Monnier * lread.c (Fload): Don't output a message after loading an obsolete diff --git a/src/lread.c b/src/lread.c index 92b1b432acd..19b6c05143b 100644 --- a/src/lread.c +++ b/src/lread.c @@ -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; -- 2.39.5