Mercurial > emacs

changeset 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 6cc7c4aa53cc
children 9bd823b992df
files src/lread.c
diffstat 1 files changed, 4 insertions(+), 0 deletions(-) [+]
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++;
 	  }