From: Richard M. Stallman <rms@gnu.org>
Date: Sun, 5 Jul 1998 20:31:37 +0000 (+0000)
Subject: (read_list): Pass new arg to get_doc_string.
X-Git-Tag: emacs-20.3~388
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=ad0153e46f323b5e18e7c41690a7a554102ff5cd;p=emacs.git

(read_list): Pass new arg to get_doc_string.
---

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