Mercurial > hg > xemacs-beta
diff src/buffer.c @ 239:41f2f0e326e9 r20-5b18
Import from CVS: tag r20-5b18
author | cvs |
---|---|
date | Mon, 13 Aug 2007 10:15:48 +0200 |
parents | 262b8bb4a523 |
children | 677f6a0ee643 |
line wrap: on
line diff
--- a/src/buffer.c Mon Aug 13 10:15:04 2007 +0200 +++ b/src/buffer.c Mon Aug 13 10:15:48 2007 +0200 @@ -685,6 +685,7 @@ } #endif /* 0 */ + static void reset_buffer_local_variables (struct buffer *b, int first_time) @@ -704,6 +705,28 @@ } #include "bufslots.h" #undef MARKED_SLOT +#if 0 +#define STRING256_P(obj) \ + (STRINGP (obj) && string_char_length (XSTRING (obj)) == 256) + /* If the standard case table has been altered and invalidated, + fix up its insides first. */ + if (!(STRING256_P(Vascii_upcase_table) && + STRING256_P(Vascii_canon_table) && + STRING256_P(Vascii_eqv_table))) + { + Fset_standard_case_table (Vascii_downcase_table); + } + b->downcase_table = Vascii_downcase_table; + b->upcase_table = Vascii_upcase_table; + b->case_canon_table = Vascii_canon_table; + b->case_eqv_table = Vascii_eqv_table; +#ifdef MULE + b->mirror_downcase_table = Vmirror_ascii_downcase_table; + b->mirror_upcase_table = Vmirror_ascii_upcase_table; + b->mirror_case_canon_table = Vmirror_ascii_canon_table; + b->mirror_case_eqv_table = Vmirror_ascii_eqv_table; +#endif +#endif }