# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 895453178 0
# Node ID c6b7839885696ab477d83851f60ed3acfffe95d8
# Parent  09efd6a94b4bbe6041b8e8f10ab669932b3ad4de
(concat): Fix bug in concatinating a list of multibyte and
unibyte characters.

diff -r 09efd6a94b4b -r c6b783988569 src/fns.c
--- a/src/fns.c	Mon May 18 00:59:38 1998 +0000
+++ b/src/fns.c	Mon May 18 00:59:38 1998 +0000
@@ -731,8 +731,8 @@
 		CHECK_NUMBER (elt, 0);
 		if (SINGLE_BYTE_CHAR_P (XINT (elt)))
 		  {
-		    XSTRING (val)->data[toindex++] = XINT (elt);
-		    toindex_byte++;
+		    XSTRING (val)->data[toindex_byte++] = XINT (elt);
+		    toindex++;
 		  }
 		else
 		  /* If we have any multibyte characters,