From: Kenichi Handa <handa@m17n.org>
Date: Mon, 18 May 1998 00:59:38 +0000 (+0000)
Subject: (concat): Fix bug in concatinating a list of multibyte and
X-Git-Tag: emacs-20.3~960
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=44893c8f3a0286aa06f0c4f7a5e9036da60d1683;p=emacs.git

(concat): Fix bug in concatinating a list of multibyte and
unibyte characters.
---

diff --git a/src/fns.c b/src/fns.c
index 404f9976544..51eec4d472c 100644
--- a/src/fns.c
+++ b/src/fns.c
@@ -731,8 +731,8 @@ concat (nargs, args, target_type, last_special)
 		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,