Mercurial > emacs

changeset 22691:ff0ed53342b3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(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 31bc848c5f18
children 578a6d997580
files src/lread.c
diffstat 1 files changed, 6 insertions(+), 0 deletions(-) [+]
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