From: Gerd Moellmann <gerd@gnu.org>
Date: Thu, 11 Jan 2001 14:24:02 +0000 (+0000)
Subject: (eval-after-load): Call load-symbol-file-load-history to
X-Git-Tag: emacs-pretest-21.0.96~352
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=422717d17bf62d24e977ce728fe9d50abaa96a13;p=emacs.git

(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 2c5f67361ba..f4e7912766e 100644
--- 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 2dc159a3424..3a60e15b0e5 100644
--- 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)))