# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 1054274657 0
# Node ID 85b37317d5ea359500a8e80c626b5f33ec926f3e
# Parent  6cc7c4aa53cc07a230c9f623c82ea280be935111
(read1): While reading a string, set force_singlebyte
and force_multibyte correctly.

diff -r 6cc7c4aa53cc -r 85b37317d5ea src/lread.c
--- a/src/lread.c	Fri May 30 06:03:22 2003 +0000
+++ b/src/lread.c	Fri May 30 06:04:17 2003 +0000
@@ -2369,6 +2369,10 @@
 	    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++;
 	  }