From cc531c444145b8b13f4520532e7ab36483e0e4cf Mon Sep 17 00:00:00 2001 From: Kenichi Handa Date: Fri, 28 Aug 1998 12:22:39 +0000 Subject: [PATCH] (concat): Use macro CHAR_BYTES instead of Fchar_bytes. --- src/fns.c | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/fns.c b/src/fns.c index bacddd2072e..a4a3fb882a9 100644 --- a/src/fns.c +++ b/src/fns.c @@ -584,7 +584,7 @@ concat (nargs, args, target_type, last_special) 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 @@ concat (nargs, args, target_type, last_special) 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; -- 2.39.2