From 470730a82246661e53cd3f2b8730bbc1f74c7419 Mon Sep 17 00:00:00 2001 From: Kenichi Handa Date: Mon, 12 Jan 1998 05:49:45 +0000 Subject: [PATCH] (concat): Check STRINGP before increasing result_len_byte. --- src/fns.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/fns.c b/src/fns.c index c1e29b82e96..69705af4319 100644 --- a/src/fns.c +++ b/src/fns.c @@ -456,7 +456,7 @@ concat (nargs, args, target_type, last_special) if (this_len_byte > 1) some_multibyte = 1; } - else + else if (STRINGP (this)) { result_len_byte += XSTRING (this)->size_byte; if (STRING_MULTIBYTE (this)) -- 2.39.2