Commit ad0153e4 authored by Richard M. Stallman's avatar Richard M. Stallman

(read_list): Pass new arg to get_doc_string.

parent 32caae30
......@@ -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)
= 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);
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment