(read1): In reading a string, treat Qlambda like Qget_file_char.
This commit is contained in:
parent
f9628a49e7
commit
8db9dc66b1
1 changed files with 5 additions and 2 deletions
|
@ -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
|
||||
|
|
Loading…
Add table
Reference in a new issue