Mercurial > emacs
comparison src/fns.c @ 22117:c6b783988569
(concat): Fix bug in concatinating a list of multibyte and
unibyte characters.
author | Kenichi Handa <handa@m17n.org> |
---|---|
date | Mon, 18 May 1998 00:59:38 +0000 |
parents | 12c75f0ef578 |
children | 8cdacecac78b |
comparison
equal
deleted
inserted
replaced
22116:09efd6a94b4b | 22117:c6b783988569 |
---|---|
729 else | 729 else |
730 { | 730 { |
731 CHECK_NUMBER (elt, 0); | 731 CHECK_NUMBER (elt, 0); |
732 if (SINGLE_BYTE_CHAR_P (XINT (elt))) | 732 if (SINGLE_BYTE_CHAR_P (XINT (elt))) |
733 { | 733 { |
734 XSTRING (val)->data[toindex++] = XINT (elt); | 734 XSTRING (val)->data[toindex_byte++] = XINT (elt); |
735 toindex_byte++; | 735 toindex++; |
736 } | 736 } |
737 else | 737 else |
738 /* If we have any multibyte characters, | 738 /* If we have any multibyte characters, |
739 we already decided to make a multibyte string. */ | 739 we already decided to make a multibyte string. */ |
740 { | 740 { |