(eval-after-load): Call load-symbol-file-load-history to

ensure that eval-after-load works for files dumped with Emacs.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 2c5f67361ba6dfacca71ca7beaa9fbfe3663b628..f4e7912766e0b385245172a3a7fcd15f2fd07c53 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,12 @@
 2001-01-11  Gerd Moellmann  <gerd@gnu.org>
 
+       * subr.el (eval-after-load): Call load-symbol-file-load-history to
+       ensure that eval-after-load works for files dumped with Emacs.
+
+       * help.el (load-symbol-file-load-history): New function extracted
+       from function symbol-file.
+       (symbol-file): Use it.
+
        * toolbar/save.xpm, toolbar/undo.xpm: Use the same colors as
        exit.xpm.
 

diff --git a/lisp/subr.el b/lisp/subr.el
index 2dc159a3424042106c3acf39bbbb5e2543160f1d..3a60e15b0e5182693db64493c0fdf05c3fd76bb7 100644 (file)
--- a/lisp/subr.el
+++ b/lisp/subr.el
@@ -804,6 +804,9 @@ It does nothing if FORM is already on the list for FILE.
 FILE must match exactly.  Normally FILE is the name of a library,
 with no directory or extension specified, since that is how `load'
 is normally called."
+  ;; Make sure `load-history' contains the files dumped with Emacs
+  ;; for the case that FILE is one of the files dumped with Emacs.
+  (load-symbol-file-load-history)
   ;; Make sure there is an element for FILE.
   (or (assoc file after-load-alist)
       (setq after-load-alist (cons (list file) after-load-alist)))