# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 902025827 0
# Node ID beddbcd2140742890b163d57d1e32d739877d420
# Parent  5bfe86125303160709c7f71d767ef1a825ee8e4d
(read1): In reading a string, treat Qlambda like Qget_file_char.

diff -r 5bfe86125303 -r beddbcd21407 src/lread.c
--- a/src/lread.c	Sun Aug 02 01:06:57 1998 +0000
+++ b/src/lread.c	Sun Aug 02 02:43:47 1998 +0000
@@ -1942,10 +1942,13 @@
 		return Fstring_make_unibyte (string);
 	      }
 	  }
-	else if (EQ (readcharfun, Qget_file_char))
+	else if (EQ (readcharfun, Qget_file_char)
+		 || EQ (readcharfun, Qlambda))
 	  /* Nowadays, reading directly from a file
 	     is used only for compiled Emacs Lisp files,
-	     and those always use the Emacs internal encoding.  */
+	     and those always use the Emacs internal encoding.
+	     Meanwhile, Qlambda is used for reading dynamic byte code
+	     (compiled with byte-compile-dynamic = t).  */
 	  nchars = multibyte_chars_in_text (read_buffer, p - read_buffer);
 	else
 	  /* In all other cases, if we read these bytes as