(casify_region, casify_object):

If case table has been changed, call Fset_case_table

diff --git a/src/casefiddle.c b/src/casefiddle.c
index a630025fa191593cbbdddcf7d6864b3abfd653f1..1e3856100a076bb4ba8188f913c5affc7057e070 100644 (file)
--- a/src/casefiddle.c
+++ b/src/casefiddle.c
@@ -35,6 +35,10 @@ casify_object (flag, obj)
   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 @@ casify_region (flag, b, e)
     /* 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);