# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 884584185 0
# Node ID 12240a9b36797b16f9d9dda3c64289b52ee4b70f
# Parent  c3360a392ae427e9d7b92fae2bc31d66a020962e
(concat): Check STRINGP before increasing result_len_byte.

diff -r c3360a392ae4 -r 12240a9b3679 src/fns.c
--- a/src/fns.c	Mon Jan 12 05:48:48 1998 +0000
+++ b/src/fns.c	Mon Jan 12 05:49:45 1998 +0000
@@ -456,7 +456,7 @@
 		if (this_len_byte > 1)
 		  some_multibyte = 1;
 	      }
-	  else
+	  else if (STRINGP (this))
 	    {
 	      result_len_byte += XSTRING (this)->size_byte;
 	      if (STRING_MULTIBYTE (this))