diff options
author | Kenichi Handa <handa@m17n.org> | 1998-05-18 00:59:38 +0000 |
---|---|---|
committer | Kenichi Handa <handa@m17n.org> | 1998-05-18 00:59:38 +0000 |
commit | f267deed738914a577c5fe332496de873358ed81 (patch) | |
tree | a0447b6242dc0bc7fca66cceba57be00809a4820 | |
parent | b99d6bd2e1b131f41276c054fa70cd28ea443494 (diff) | |
download | emacs-f267deed738914a577c5fe332496de873358ed81.tar.gz |
(concat): Fix bug in concatinating a list of multibyte and
unibyte characters.
-rw-r--r-- | src/fns.c | 4 |
1 files changed, 2 insertions, 2 deletions
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, |