From 8db9dc66b14344bb533b495615cf7d9fdcb46c87 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sun, 2 Aug 1998 02:43:47 +0000 Subject: [PATCH] (read1): In reading a string, treat Qlambda like Qget_file_char. --- src/lread.c | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) diff --git a/src/lread.c b/src/lread.c index fa0219deb49..ead6e87e59a 100644 --- a/src/lread.c +++ b/src/lread.c @@ -1942,10 +1942,13 @@ read1 (readcharfun, pch, first_in_list) 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 -- 2.39.2