[Emacs-diffs] emacs/src ChangeLog lread.c

[Stefan Monnier]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Stefan Monnier <monnier>        09/09/15 03:45:53

Modified files:
        src            : ChangeLog lread.c 

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

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/src/ChangeLog?cvsroot=emacs&r1=1.7745&r2=1.7746
http://cvs.savannah.gnu.org/viewcvs/emacs/src/lread.c?cvsroot=emacs&r1=1.413&r2=1.414

Patches:
Index: ChangeLog
===================================================================
RCS file: /sources/emacs/emacs/src/ChangeLog,v
retrieving revision 1.7745
retrieving revision 1.7746
diff -u -b -r1.7745 -r1.7746
--- ChangeLog   12 Sep 2009 03:35:43 -0000      1.7745
+++ ChangeLog   15 Sep 2009 03:45:51 -0000      1.7746
@@ -1,3 +1,7 @@
+2009-09-15  Stefan Monnier  <address@hidden>
+
+       * lread.c (Fload): Also run do-after-load-evaluation while dumping.
+
 2009-09-12  Stefan Monnier  <address@hidden>
 
        * lread.c (Fload): Don't output a message after loading an obsolete

Index: lread.c
===================================================================
RCS file: /sources/emacs/emacs/src/lread.c,v
retrieving revision 1.413
retrieving revision 1.414
diff -u -b -r1.413 -r1.414
--- lread.c     12 Sep 2009 03:35:44 -0000      1.413
+++ lread.c     15 Sep 2009 03:45:53 -0000      1.414
@@ -1279,8 +1279,7 @@
   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;