mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-02 08:22:22 +00:00
Code Issues Releases Activity

(read1): In reading a string, treat Qlambda like Qget_file_char.

Browse Source
This commit is contained in:
Richard M. Stallman 1998-08-02 02:43:47 +00:00
parent f9628a49e7
commit 8db9dc66b1
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
src/lread.c
View File

@ -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