# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 831356898 0
# Node ID 0d698228e98c834f77eb7accc861027e7e2ab5f6
# Parent  a00021443533c72a13ca48b268028d53463db643
(casify_region, casify_object):
If case table has been changed, call Fset_case_table

diff -r a00021443533 -r 0d698228e98c src/casefiddle.c
--- 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);