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

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

diff --git a/src/ChangeLog b/src/ChangeLog
index f683aaa0bf83aff883f4749f7ee98cd9349dfb51..a87dc76cb909fda4b2d25f0efd99a0314d8c27f4 100644 (file)
--- 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 7034f43ca5aaff26f386e4ed16ef42e8694b0257..0e39af5ba350b7b4e8b44e6b2b7704db6d40dceb 100644 (file)
--- 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 4aa115ac92b8a285afc74b1b79ada6f04a7645b1..e3521934f427c0b197e9f89fc90e65beb2b21e14 100644 (file)
--- 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,