Mercurial > emacs
changeset 22876:8c063663a19d
(copy_text): In multibyte to unibyte conversion, take
nonascii-translation-table and nonascii-insert-offset into
account.
| author | Kenichi Handa <handa@m17n.org> |
|---|---|
| date | Sun, 02 Aug 1998 01:06:57 +0000 |
| parents | b33307c77a17 |
| children | 390d2e91fee2 |
| files | src/insdel.c |
| diffstat | 1 files changed, 27 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/src/insdel.c Sun Aug 02 01:06:57 1998 +0000 +++ b/src/insdel.c Sun Aug 02 01:06:57 1998 +0000 @@ -699,13 +699,37 @@ { int nchars = 0; int bytes_left = nbytes; + Lisp_Object tbl = Qnil, temp; + + /* We set the variable tbl to the reverse table of + Vnonascii_translation_table in advance. */ + if (CHAR_TABLE_P (Vnonascii_translation_table)) + { + tbl = Fchar_table_extra_slot (Vnonascii_translation_table, + make_number (0)); + if (!CHAR_TABLE_P (tbl)) + tbl = Qnil; + } /* Convert multibyte to single byte. */ while (bytes_left > 0) { - int thislen, c; - c = STRING_CHAR_AND_LENGTH (from_addr, bytes_left, thislen); - *to_addr++ = SINGLE_BYTE_CHAR_P (c) ? c : (c & 0177) + 0200; + int thislen, c, c_save; + c = c_save = STRING_CHAR_AND_LENGTH (from_addr, bytes_left, thislen); + if (!SINGLE_BYTE_CHAR_P (c)) + { + if (!NILP (tbl)) + { + temp = Faref (tbl, make_number (c)); + if (INTEGERP (temp)) + c = XINT (temp); + } + else if (nonascii_insert_offset > 0) + c -= nonascii_insert_offset; + if (c < 128 || c >= 256) + c = (c_save & 0177) + 0200; + } + *to_addr++ = c; from_addr += thislen; bytes_left -= thislen; nchars++;