mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-18 10:16:51 +00:00
Code Issues Releases Activity

(copy_text): Fix previous change, call

Browse Source 
multibyte_char_to_unibyte.
This commit is contained in:
Kenichi Handa 1998-08-15 01:28:14 +00:00
parent 89fa8b3669
commit 4ec3678010
1 changed files with 1 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
src/insdel.c
View File

@ -717,18 +717,7 @@ copy_text (from_addr, to_addr, nbytes,
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;
}
c = multibyte_char_to_unibyte (c, tbl);
*to_addr++ = c;
from_addr += thislen;
bytes_left -= thislen;