From 7973e637e40b667bcad19c113b609741a587df63 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Fri, 24 Mar 2000 20:25:34 +0000 Subject: [PATCH] * eval.c (Fautoload): Add entry in load-history (if after dump). * lread.c (load-history): Update docstring. --- src/ChangeLog | 5 +++++ src/eval.c | 5 +++++ src/lread.c | 3 ++- 3 files changed, 12 insertions(+), 1 deletion(-) 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 + + * eval.c (Fautoload): Add entry in load-history (if after dump). + * lread.c (load-history): Update docstring. + 2000-03-24 Gerd Moellmann * 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, -- 2.11.4.GIT