Mercurial > emacs
comparison src/fns.c @ 22853:62d2fb895f5f
(concat): Fix previous change.
| author | Kenichi Handa <handa@m17n.org> |
|---|---|
| date | Thu, 30 Jul 1998 01:35:40 +0000 |
| parents | d023df160219 |
| children | 18ed8d6b11e5 |
comparison
equal
deleted
inserted
replaced
| 22852:dfb255fb91c8 | 22853:62d2fb895f5f |
|---|---|
| 666 bcopy (XSTRING (this)->data, XSTRING (val)->data + toindex_byte, | 666 bcopy (XSTRING (this)->data, XSTRING (val)->data + toindex_byte, |
| 667 STRING_BYTES (XSTRING (this))); | 667 STRING_BYTES (XSTRING (this))); |
| 668 if (some_multibyte | 668 if (some_multibyte |
| 669 && toindex_byte > 0 | 669 && toindex_byte > 0 |
| 670 && !ASCII_BYTE_P (XSTRING (val)->data[toindex_byte - 1]) | 670 && !ASCII_BYTE_P (XSTRING (val)->data[toindex_byte - 1]) |
| 671 && !CHAR_HEAD_P (XSTRING (this)->data[0] >= 0xA0)) | 671 && !CHAR_HEAD_P (XSTRING (this)->data[0])) |
| 672 maybe_combine_byte = 1; | 672 maybe_combine_byte = 1; |
| 673 toindex_byte += thislen_byte; | 673 toindex_byte += thislen_byte; |
| 674 toindex += thisleni; | 674 toindex += thisleni; |
| 675 } | 675 } |
| 676 /* Copy a single-byte string to a multibyte string. */ | 676 /* Copy a single-byte string to a multibyte string. */ |