Mercurial > emacs
changeset 15170:0d698228e98c
(casify_region, casify_object):
If case table has been changed, call Fset_case_table
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Mon, 06 May 1996 04:28:18 +0000 |
| parents | a00021443533 |
| children | 36c329b45867 |
| files | src/casefiddle.c |
| diffstat | 1 files changed, 8 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/src/casefiddle.c Mon May 06 00:43:26 1996 +0000 +++ b/src/casefiddle.c Mon May 06 04:28:18 1996 +0000 @@ -35,6 +35,10 @@ register int i, c, len; register int inword = flag == CASE_DOWN; + /* If the case table is flagged as modified, rescan it. */ + if (NILP (XCHAR_TABLE (current_buffer->downcase_table)->extras[1])) + Fset_case_table (current_buffer->downcase_table); + while (1) { if (INTEGERP (obj)) @@ -133,6 +137,10 @@ /* Not modifying because nothing marked */ return; + /* If the case table is flagged as modified, rescan it. */ + if (NILP (XCHAR_TABLE (current_buffer->downcase_table)->extras[1])) + Fset_case_table (current_buffer->downcase_table); + validate_region (&b, &e); start = XFASTINT (b); end = XFASTINT (e);