From 988f7a0c5dcb691e1dd2694de8328d4f22d50c2a Mon Sep 17 00:00:00 2001 From: Kenichi Handa Date: Fri, 30 May 2003 06:04:17 +0000 Subject: [PATCH] (read1): While reading a string, set force_singlebyte and force_multibyte correctly. --- src/lread.c | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/src/lread.c b/src/lread.c index 7e4ed5272e8..8f990aaeb11 100644 --- a/src/lread.c +++ b/src/lread.c @@ -2369,6 +2369,10 @@ read1 (readcharfun, pch, first_in_list) else { p += CHAR_STRING (c, (unsigned char *) p); + if (CHAR_BYTE8_P (c)) + force_singlebyte = 1; + else if (! ASCII_CHAR_P (c)) + force_multibyte = 1; } nchars++; } -- 2.39.5