diff options
| author | Richard M. Stallman | 2002-08-24 03:17:18 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 2002-08-24 03:17:18 +0000 |
| commit | d642e4f9ee5f73140413399c76f38b07d03cec6d (patch) | |
| tree | 0c704761d2c012ffd1bc7850dccf3fac97983c67 /src | |
| parent | ed30cf85d76ca9ea9ac03ed903a4e4b3994a1d81 (diff) | |
| download | emacs-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.c | 8 |
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. */); | |||
| 3760 | Each alist element is a list that starts with a file name, | 3760 | Each alist element is a list that starts with a file name, |
| 3761 | except for one element (optional) that starts with nil and describes | 3761 | except for one element (optional) that starts with nil and describes |
| 3762 | definitions evaluated from buffers not visiting files. | 3762 | definitions evaluated from buffers not visiting files. |
| 3763 | The remaining elements of each list are symbols defined as functions | 3763 | The remaining elements of each list are symbols defined as functions, |
| 3764 | or variables, and cons cells `(provide . FEATURE)', `(require . FEATURE)', | 3764 | and cons cells of the form `(provide . FEATURE)', `(require . FEATURE)', |
| 3765 | and `(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, |