# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 904306959 0
# Node ID 45de23c16505c741ee6a47af55f0c6318c1cd477
# Parent  22c7650e9057e892309c323df41d26ac06d3e250
(concat): Use macro CHAR_BYTES instead of Fchar_bytes.

diff -r 22c7650e9057 -r 45de23c16505 src/fns.c
--- a/src/fns.c	Fri Aug 28 12:22:39 1998 +0000
+++ b/src/fns.c	Fri Aug 28 12:22:39 1998 +0000
@@ -584,7 +584,7 @@
 		ch = XVECTOR (this)->contents[i];
 		if (! INTEGERP (ch))
 		  wrong_type_argument (Qintegerp, ch);
-		this_len_byte = XFASTINT (Fchar_bytes (ch));
+		this_len_byte = CHAR_BYTES (XINT (ch));
 		result_len_byte += this_len_byte;
 		if (this_len_byte > 1)
 		  some_multibyte = 1;
@@ -597,7 +597,7 @@
 		ch = XCONS (this)->car;
 		if (! INTEGERP (ch))
 		  wrong_type_argument (Qintegerp, ch);
-		this_len_byte = XFASTINT (Fchar_bytes (ch));
+		this_len_byte = CHAR_BYTES (XINT (ch));
 		result_len_byte += this_len_byte;
 		if (this_len_byte > 1)
 		  some_multibyte = 1;