Mercurial > emacs
changeset 20543:4dbda4b7c66f
(casify_region): Scan in bytes and chars.
(casify_object, casify_region): Declare str, workbuf as unsigned char.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Thu, 01 Jan 1998 02:45:12 +0000 |
| parents | 828d91461655 |
| children | a884f0426ab9 |
| files | src/casefiddle.c |
| diffstat | 1 files changed, 13 insertions(+), 8 deletions(-) [+] |
line wrap: on
line diff
--- a/src/casefiddle.c Thu Jan 01 02:44:17 1998 +0000 +++ b/src/casefiddle.c Thu Jan 01 02:45:12 1998 +0000 @@ -87,7 +87,7 @@ char *buf = (char *) alloca ((len - i) * MAX_LENGTH_OF_MULTI_BYTE_FORM + i); - char *str, workbuf[4]; + unsigned char *str, workbuf[4]; /* Copy data already handled. */ bcopy (XSTRING (obj)->data, buf, i); @@ -174,6 +174,7 @@ register int inword = flag == CASE_DOWN; register int multibyte = !NILP (current_buffer->enable_multibyte_characters); int start, end; + int start_byte, end_byte; Lisp_Object ch, downch, val; if (EQ (b, e)) @@ -189,8 +190,10 @@ end = XFASTINT (e); modify_region (current_buffer, start, end); record_change (start, end - start); + start_byte = CHAR_TO_BYTE (start); + end_byte = CHAR_TO_BYTE (end); - for (i = start; i < end; i++) + for (i = start_byte; i < end_byte; i++) { c = FETCH_BYTE (i); if (multibyte && c >= 0x80) @@ -205,13 +208,15 @@ if ((int) flag >= (int) CASE_CAPITALIZE) inword = SYNTAX (c) == Sword; } - if (i < end) + if (i < end_byte) { /* The work is not yet finished because of a multibyte character just encountered. */ - int opoint = PT, c2; + int opoint = PT; + int opoint_byte = PT_BYTE; + int c2; - while (i < end) + while (i < end_byte) { if ((c = FETCH_BYTE (i)) >= 0x80) c = FETCH_MULTIBYTE_CHAR (i); @@ -224,7 +229,7 @@ if (c != c2) { int fromlen, tolen, j; - char workbuf[4], *str; + unsigned char workbuf[4], *str; /* Handle the most likely case */ if (c < 0400 && c2 < 0400) @@ -245,7 +250,7 @@ else if (tolen > fromlen) { TEMP_SET_PT (i + fromlen); - insert_1 (str + fromlen, tolen - fromlen, 1, 0); + insert_1 (str + fromlen, tolen - fromlen, 1, 0, 0); } #endif } @@ -254,7 +259,7 @@ inword = SYNTAX (c2) == Sword; INC_POS (i); } - TEMP_SET_PT (opoint); + TEMP_SET_PT_BOTH (opoint, opoint_byte); } signal_after_change (start, end - start, end - start);