# HG changeset patch # User Stefan Monnier # Date 1202851545 0 # Node ID 78fbdbd3728655e4a8899575ee2dec02761c1a9c # Parent 3a35316b344f0d91e94bf4c23afb86fa9c6bc910 (casify_region): Only call after-change and composition functions on the part of the region that was changed. diff -r 3a35316b344f -r 78fbdbd37286 src/ChangeLog --- a/src/ChangeLog Tue Feb 12 21:21:02 2008 +0000 +++ b/src/ChangeLog Tue Feb 12 21:25:45 2008 +0000 @@ -1,5 +1,8 @@ 2008-02-12 Stefan Monnier + * casefiddle.c (casify_region): Only call after-change and composition + functions on the part of the region that was changed. + * keyboard.c (read_avail_input): * frame.c (Fdelete_frame): Call Fdelete_terminal. diff -r 3a35316b344f -r 78fbdbd37286 src/casefiddle.c --- a/src/casefiddle.c Tue Feb 12 21:21:02 2008 +0000 +++ b/src/casefiddle.c Tue Feb 12 21:25:45 2008 +0000 @@ -179,11 +179,11 @@ register int c; register int inword = flag == CASE_DOWN; register int multibyte = !NILP (current_buffer->enable_multibyte_characters); - int start, end; - int start_byte, end_byte; - int changed = 0; - int opoint = PT; - int opoint_byte = PT_BYTE; + EMACS_INT start, end; + EMACS_INT start_byte, end_byte; + EMACS_INT first = -1, last; /* Position of first and last changes. */ + EMACS_INT opoint = PT; + EMACS_INT opoint_byte = PT_BYTE; if (EQ (b, e)) /* Not modifying because nothing marked */ @@ -226,7 +226,10 @@ inword = ((SYNTAX (c) == Sword) && (inword || !SYNTAX_PREFIX (c))); if (c != c2) { - changed = 1; + last = start; + if (first < 0) + first = start; + if (! multibyte) { MAKE_CHAR_UNIBYTE (c); @@ -266,11 +269,10 @@ if (PT != opoint) TEMP_SET_PT_BOTH (opoint, opoint_byte); - if (changed) + if (first >= 0) { - start = XFASTINT (b); - signal_after_change (start, end - start, end - start); - update_compositions (start, end, CHECK_ALL); + signal_after_change (first, last + 1 - first, last + 1 - first); + update_compositions (first, last + 1, CHECK_ALL); } }