Mercurial > emacs

diff src/lread.c @ 89453:85b37317d5ea

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(read1): While reading a string, set force_singlebyte and force_multibyte correctly.
author Kenichi Handa <handa@m17n.org>
date Fri, 30 May 2003 06:04:17 +0000
parents 56c80a95cb5b
children 2f877ed80fa6
line wrap: on
line diff
--- 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++;
 	  }