diff options
| author | Richard M. Stallman | 1995-10-22 16:40:53 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1995-10-22 16:40:53 +0000 |
| commit | 3446af9c77122891a2267b7cf185c98118dda4fa (patch) | |
| tree | 60650cf138f983c79421bd4ae3ec6b86ac67abe7 /src/buffer.c | |
| parent | e6905346082a639156936eed5277de838b23804e (diff) | |
| download | emacs-3446af9c77122891a2267b7cf185c98118dda4fa.tar.gz emacs-3446af9c77122891a2267b7cf185c98118dda4fa.zip | |
(reset_buffer_local_variables): Call
Fset_standard_case_table if std case table seems to have been changed.
Diffstat (limited to 'src/buffer.c')
| -rw-r--r-- | src/buffer.c | 8 |
1 files changed, 8 insertions, 0 deletions
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) | |||
| 481 | b->abbrev_table = Vfundamental_mode_abbrev_table; | 481 | b->abbrev_table = Vfundamental_mode_abbrev_table; |
| 482 | b->mode_name = QSFundamental; | 482 | b->mode_name = QSFundamental; |
| 483 | b->minor_modes = Qnil; | 483 | b->minor_modes = Qnil; |
| 484 | |||
| 485 | /* If the standard case table has been altered and invalidated, | ||
| 486 | fix up its insides first. */ | ||
| 487 | if (! (CHAR_TABLE_P (XCHAR_TABLE (Vascii_downcase_table)->extras[0]) | ||
| 488 | && CHAR_TABLE_P (XCHAR_TABLE (Vascii_downcase_table)->extras[1]) | ||
| 489 | && CHAR_TABLE_P (XCHAR_TABLE (Vascii_downcase_table)->extras[2]))) | ||
| 490 | Fset_standard_case_table (Vascii_downcase_table); | ||
| 491 | |||
| 484 | b->downcase_table = Vascii_downcase_table; | 492 | b->downcase_table = Vascii_downcase_table; |
| 485 | b->upcase_table = XCHAR_TABLE (Vascii_downcase_table)->extras[0]; | 493 | b->upcase_table = XCHAR_TABLE (Vascii_downcase_table)->extras[0]; |
| 486 | b->case_canon_table = XCHAR_TABLE (Vascii_downcase_table)->extras[1]; | 494 | b->case_canon_table = XCHAR_TABLE (Vascii_downcase_table)->extras[1]; |