Mercurial > emacs

diff src/fns.c @ 89527:7ca60ab7a039

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(concat): Don't change multibyteness of the result by concatenating an 8-bit character.
author Kenichi Handa <handa@m17n.org>
date Fri, 26 Sep 2003 11:21:21 +0000
parents 2f877ed80fa6
children 88fa74816908
line wrap: on
line diff
--- a/src/fns.c	Fri Sep 26 11:20:13 2003 +0000
+++ b/src/fns.c	Fri Sep 26 11:21:21 2003 +0000
@@ -591,7 +591,7 @@
 		  wrong_type_argument (Qcharacterp, ch);
 		this_len_byte = CHAR_BYTES (XINT (ch));
 		result_len_byte += this_len_byte;
-		if (! ASCII_CHAR_P (XINT (ch)))
+		if (! ASCII_CHAR_P (XINT (ch)) && ! CHAR_BYTE8_P (XINT (ch)))
 		  some_multibyte = 1;
 	      }
 	  else if (BOOL_VECTOR_P (this) && XBOOL_VECTOR (this)->size > 0)
@@ -604,7 +604,7 @@
 		  wrong_type_argument (Qcharacterp, ch);
 		this_len_byte = CHAR_BYTES (XINT (ch));
 		result_len_byte += this_len_byte;
-		if (! ASCII_CHAR_P (XINT (ch)))
+		if (! ASCII_CHAR_P (XINT (ch)) && ! CHAR_BYTE8_P (XINT (ch)))
 		  some_multibyte = 1;
 	      }
 	  else if (STRINGP (this))