# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 1034644705 0
# Node ID 3a63b581b0339bd3f748c79b6234124d717078e7
# Parent  3903a3ae19cb310889b86823e203319671c824f8
(concat): Check CH by ASCII_CHAR_P, not by
SINGLE_BYTE_CHAR_P.

diff -r 3903a3ae19cb -r 3a63b581b033 src/fns.c
--- a/src/fns.c	Tue Oct 15 01:18:09 2002 +0000
+++ b/src/fns.c	Tue Oct 15 01:18:25 2002 +0000
@@ -585,7 +585,7 @@
 		  wrong_type_argument (Qcharacterp, ch);
 		this_len_byte = CHAR_BYTES (XINT (ch));
 		result_len_byte += this_len_byte;
-		if (!SINGLE_BYTE_CHAR_P (XINT (ch)))
+		if (!ASCII_CHAR_P (XINT (ch)))
 		  some_multibyte = 1;
 	      }
 	  else if (BOOL_VECTOR_P (this) && XBOOL_VECTOR (this)->size > 0)
@@ -598,7 +598,7 @@
 		  wrong_type_argument (Qcharacterp, ch);
 		this_len_byte = CHAR_BYTES (XINT (ch));
 		result_len_byte += this_len_byte;
-		if (!SINGLE_BYTE_CHAR_P (XINT (ch)))
+		if (!ASCII_CHAR_P (XINT (ch)))
 		  some_multibyte = 1;
 	      }
 	  else if (STRINGP (this))