From: Richard M. Stallman <rms@gnu.org>
Date: Sun, 22 Oct 1995 16:40:53 +0000 (+0000)
Subject: (reset_buffer_local_variables): Call
X-Git-Tag: emacs-19.34~2590
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=3446af9c77122891a2267b7cf185c98118dda4fa;p=emacs.git

(reset_buffer_local_variables): Call
Fset_standard_case_table if std case table seems to have been changed.
---

diff --git a/src/buffer.c b/src/buffer.c
index c533d4343fa..008dedde462 100644
--- a/src/buffer.c
+++ b/src/buffer.c
@@ -481,6 +481,14 @@ reset_buffer_local_variables (b)
   b->abbrev_table = Vfundamental_mode_abbrev_table;
   b->mode_name = QSFundamental;
   b->minor_modes = Qnil;
+
+  /* If the standard case table has been altered and invalidated,
+     fix up its insides first.  */
+  if (! (CHAR_TABLE_P (XCHAR_TABLE (Vascii_downcase_table)->extras[0])
+	 && CHAR_TABLE_P (XCHAR_TABLE (Vascii_downcase_table)->extras[1])
+	 && CHAR_TABLE_P (XCHAR_TABLE (Vascii_downcase_table)->extras[2])))
+    Fset_standard_case_table (Vascii_downcase_table);
+
   b->downcase_table = Vascii_downcase_table;
   b->upcase_table = XCHAR_TABLE (Vascii_downcase_table)->extras[0];
   b->case_canon_table = XCHAR_TABLE (Vascii_downcase_table)->extras[1];