From: Kenichi Handa <handa@m17n.org>
Date: Tue, 15 Oct 2002 01:18:25 +0000 (+0000)
Subject: (concat): Check CH by ASCII_CHAR_P, not by
X-Git-Tag: emacs-pretest-23.0.90~8295^2~1864^2~243
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=5d516ca2943d4eca9ca19788f6ce520b029b9811;p=emacs.git

(concat): Check CH by ASCII_CHAR_P, not by
SINGLE_BYTE_CHAR_P.
---

diff --git a/src/fns.c b/src/fns.c
index 27fdcdd35a3..c11f9d0c80d 100644
--- a/src/fns.c
+++ b/src/fns.c
@@ -585,7 +585,7 @@ concat (nargs, args, target_type, last_special)
 		  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 @@ concat (nargs, args, target_type, last_special)
 		  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))