Mercurial > emacs

comparison src/fns.c @ 22117:c6b783988569

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(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 {