diff options
| author | Richard M. Stallman <rms@gnu.org> | 1998-07-05 20:31:37 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1998-07-05 20:31:37 +0000 |
| commit | ad0153e46f323b5e18e7c41690a7a554102ff5cd (patch) | |
| tree | f263a41f502b9a98ee3669253b5fc611c8b69744 | |
| parent | 32caae30ca89794705c9c109772403bb494fd9d7 (diff) | |
| download | emacs-ad0153e46f323b5e18e7c41690a7a554102ff5cd.tar.gz | |
(read_list): Pass new arg to get_doc_string.
| -rw-r--r-- | src/lread.c | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/src/lread.c b/src/lread.c index aedeb40c7ef..fa0219deb49 100644 --- a/src/lread.c +++ b/src/lread.c @@ -302,6 +302,10 @@ readchar (readcharfun) return c; } + + if (EQ (readcharfun, Qlambda)) + return read_bytecode_char (0); + if (EQ (readcharfun, Qget_file_char)) { c = getc (instream); @@ -391,6 +395,8 @@ unreadchar (readcharfun, c) read_from_string_index_byte = string_char_to_byte (readcharfun, read_from_string_index); } + else if (EQ (readcharfun, Qlambda)) + read_bytecode_char (1); else if (EQ (readcharfun, Qget_file_char)) ungetc (c, instream); else |