Mercurial > emacs
diff src/lread.c @ 22691:ff0ed53342b3
(read_list): Pass new arg to get_doc_string.
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Sun, 05 Jul 1998 20:31:37 +0000 |
parents | 329fe9a2bdb8 |
children | beddbcd21407 |
line wrap: on
line diff
--- a/src/lread.c Sun Jul 05 20:31:12 1998 +0000 +++ b/src/lread.c Sun Jul 05 20:31:37 1998 +0000 @@ -302,6 +302,10 @@ return c; } + + if (EQ (readcharfun, Qlambda)) + return read_bytecode_char (0); + if (EQ (readcharfun, Qget_file_char)) { c = getc (instream); @@ -391,6 +395,8 @@ 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