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. */ |