aboutsummaryrefslogtreecommitdiffstats
path: root/src
diff options
context:
space:
mode:
authorRichard M. Stallman2002-08-24 03:17:18 +0000
committerRichard M. Stallman2002-08-24 03:17:18 +0000
commitd642e4f9ee5f73140413399c76f38b07d03cec6d (patch)
tree0c704761d2c012ffd1bc7850dccf3fac97983c67 /src
parented30cf85d76ca9ea9ac03ed903a4e4b3994a1d81 (diff)
downloademacs-d642e4f9ee5f73140413399c76f38b07d03cec6d.tar.gz
emacs-d642e4f9ee5f73140413399c76f38b07d03cec6d.zip
(build_load_history): Use Fmember to see if a definition
is already in the Vload_history element. (syms_of_lread): Doc fix.
Diffstat (limited to 'src')
-rw-r--r--src/lread.c8
1 files changed, 4 insertions, 4 deletions
diff --git a/src/lread.c b/src/lread.c
index 28a59941fab..f273ce60ec5 100644
--- a/src/lread.c
+++ b/src/lread.c
@@ -1201,7 +1201,7 @@ build_load_history (stream, source)
1201 { 1201 {
1202 newelt = XCAR (tem2); 1202 newelt = XCAR (tem2);
1203 1203
1204 if (NILP (Fmemq (newelt, tem))) 1204 if (NILP (Fmember (newelt, tem)))
1205 Fsetcar (tail, Fcons (XCAR (tem), 1205 Fsetcar (tail, Fcons (XCAR (tem),
1206 Fcons (newelt, XCDR (tem)))); 1206 Fcons (newelt, XCDR (tem))));
1207 1207
@@ -3760,9 +3760,9 @@ when the corresponding call to `provide' is made. */);
3760Each alist element is a list that starts with a file name, 3760Each alist element is a list that starts with a file name,
3761except for one element (optional) that starts with nil and describes 3761except for one element (optional) that starts with nil and describes
3762definitions evaluated from buffers not visiting files. 3762definitions evaluated from buffers not visiting files.
3763The remaining elements of each list are symbols defined as functions 3763The remaining elements of each list are symbols defined as functions,
3764or variables, and cons cells `(provide . FEATURE)', `(require . FEATURE)', 3764and cons cells of the form `(provide . FEATURE)', `(require . FEATURE)',
3765and `(autoload . SYMBOL)'. */); 3765`(defvar . VARIABLE), and `(autoload . SYMBOL)'. */);
3766 Vload_history = Qnil; 3766 Vload_history = Qnil;
3767 3767
3768 DEFVAR_LISP ("load-file-name", &Vload_file_name, 3768 DEFVAR_LISP ("load-file-name", &Vload_file_name,