* eval.c (Fautoload): Add entry in load-history (if after dump).

* lread.c (load-history): Update docstring.

3 files changed, 12 insertions, 1 deletions

diff --git a/src/ChangeLog b/src/ChangeLog
index f683aaa0bf8..a87dc76cb90 100644
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,8 @@
+2000-03-24  Stefan Monnier  <monnier@cs.yale.edu>
+
+        * eval.c (Fautoload): Add entry in load-history (if after dump).
+        * lread.c (load-history): Update docstring.
+
 2000-03-24  Gerd Moellmann  <gerd@gnu.org>
 
         * indent.c (Fvertical_motion): Always use the current buffer.
diff --git a/src/eval.c b/src/eval.c
index 7034f43ca5a..0e39af5ba35 100644
--- a/src/eval.c
+++ b/src/eval.c
@@ -1646,6 +1646,11 @@ this does nothing and returns nil.")
            && EQ (XCAR (XSYMBOL (function)->function), Qautoload)))
     return Qnil;
 
+  if (NILP (Vpurify_flag))
+    /* Only add entries after dumping, because the ones before are
+       not useful and else we get loads of them from the loaddefs.el.  */
+    LOADHIST_ATTACH (Fcons (Qautoload, function));
+
 #ifdef NO_ARG_ARRAY
   args[0] = file;
   args[1] = docstring;
diff --git a/src/lread.c b/src/lread.c
index 4aa115ac92b..e3521934f42 100644
--- a/src/lread.c
+++ b/src/lread.c
@@ -3433,7 +3433,8 @@ Each alist element is a list that starts with a file name,\n\
 except for one element (optional) that starts with nil and describes\n\
 definitions evaluated from buffers not visiting files.\n\
 The remaining elements of each list are symbols defined as functions\n\
-or variables, and cons cells `(provide . FEATURE)' and `(require . FEATURE)'.");
+or variables, and cons cells `(provide . FEATURE)', `(require . FEATURE)',
+and `(autoload . SYMBOL)'.");
   Vload_history = Qnil;
 
   DEFVAR_LISP ("load-file-name", &Vload_file_name,