From 0de441b6f6f5223bbf0c9ef7a9240cbe78c0ac35 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Wed, 27 Aug 1997 17:21:54 +0000 Subject: [PATCH] (concat): Fix use 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 29ecef48712..d7bb5419f67 100644 --- a/src/fns.c +++ b/src/fns.c @@ -427,7 +427,7 @@ concat (nargs, args, target_type, last_special) ch = XVECTOR (this)->contents[i]; if (! INTEGERP (ch)) wrong_type_argument (Qintegerp, ch); - leni += Fchar_bytes (ch); + leni += XFASTINT (Fchar_bytes (ch)); } else for (; CONSP (this); this = XCONS (this)->cdr) @@ -435,7 +435,7 @@ concat (nargs, args, target_type, last_special) ch = XCONS (this)->car; if (! INTEGERP (ch)) wrong_type_argument (Qintegerp, ch); - leni += Fchar_bytes (ch); + leni += XFASTINT (Fchar_bytes (ch)); } } else -- 2.39.5