From: Kenichi Handa <handa@m17n.org>
Date: Fri, 30 May 2003 06:04:17 +0000 (+0000)
Subject: (read1): While reading a string, set force_singlebyte
X-Git-Tag: emacs-pretest-23.0.90~8295^2~1864^2~23
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=988f7a0c5dcb691e1dd2694de8328d4f22d50c2a;p=emacs.git

(read1): While reading a string, set force_singlebyte
and force_multibyte correctly.
---

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++;
 	  }