From: Kenichi Handa <handa@m17n.org>
Date: Fri, 28 Aug 1998 12:22:39 +0000 (+0000)
Subject: (concat): Use macro CHAR_BYTES instead of Fchar_bytes.
X-Git-Tag: emacs-20.4~1821
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=cc531c444145b8b13f4520532e7ab36483e0e4cf;p=emacs.git

(concat): Use macro CHAR_BYTES instead of Fchar_bytes.
---

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;