From: Stefan Monnier Date: Fri, 24 Mar 2000 20:25:34 +0000 (+0000) Subject: * eval.c (Fautoload): Add entry in load-history (if after dump). X-Git-Tag: emacs-pretest-21.0.90~4511 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=7973e637e40b667bcad19c113b609741a587df63;p=emacs.git * 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 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,