From: Kenichi Handa <handa@m17n.org>
Date: Mon, 12 Jan 1998 05:49:45 +0000 (+0000)
Subject: (concat): Check STRINGP before increasing result_len_byte.
X-Git-Tag: emacs-20.3~2435
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=470730a82246661e53cd3f2b8730bbc1f74c7419;p=emacs.git

(concat): Check STRINGP before increasing result_len_byte.
---

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))