# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 1064575281 0
# Node ID 7ca60ab7a039c6672a06009ec46118d067a987c8
# Parent  58eb89f2fdfc72fe786941f145efd15d5e2724bd
(concat): Don't change multibyteness of the result by
concatenating an 8-bit character.

diff -r 58eb89f2fdfc -r 7ca60ab7a039 src/fns.c
--- 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))