diff options
| author | Karl Heuer <kwzh@gnu.org> | 1997-10-15 22:45:35 +0000 |
|---|---|---|
| committer | Karl Heuer <kwzh@gnu.org> | 1997-10-15 22:45:35 +0000 |
| commit | d49f0c1af8e16701b95f75733a9865951e7b3f5b (patch) | |
| tree | 3735d0ab8b270fd2bc6def4dafb9facaaca7942b | |
| parent | d2f273579280ac79d5990c44fd4a5cc60dc69d82 (diff) | |
| download | emacs-d49f0c1af8e16701b95f75733a9865951e7b3f5b.tar.gz | |
(read_list): Don't recognize Vload_file_name
specially if it is nil.
| -rw-r--r-- | src/lread.c | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/src/lread.c b/src/lread.c index 1cf882d36d2..62886190fb2 100644 --- a/src/lread.c +++ b/src/lread.c @@ -130,7 +130,8 @@ static int read_pure; static int read_from_string_index; static int read_from_string_limit; -/* This contains the last string skipped with #@. */ +/* This contains the last string skipped with #@, but only on some systems. + On other systems we can't put the string here. */ static char *saved_doc_string; /* Length of buffer allocated in saved_doc_string. */ static int saved_doc_string_size; @@ -1517,6 +1518,7 @@ read1 (readcharfun, pch, first_in_list) for (i = 0; i < nskip && c >= 0; i++) c = READCHAR; } + goto retry; } if (c == '$') @@ -1942,6 +1944,7 @@ read_list (flag, readcharfun) /* While building, if the list starts with #$, treat it specially. */ if (EQ (elt, Vload_file_name) + && ! NILP (elt) && !NILP (Vpurify_flag)) { if (NILP (Vdoc_file_name)) @@ -1960,6 +1963,7 @@ read_list (flag, readcharfun) Ffile_name_nondirectory (elt)); } else if (EQ (elt, Vload_file_name) + && ! NILP (elt) && load_force_doc_strings) doc_reference = 2; |