Mercurial > hg > xemacs-beta

comparison src/buffer.c @ 446:1ccc32a20af4 r21-2-38

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-38
author cvs
date Mon, 13 Aug 2007 11:37:21 +0200
parents 576fb035e263
children 3078fd1074e8
comparison
equal deleted inserted replaced
445:34f3776fcf0e 446:1ccc32a20af4
68 #include <config.h> 68 #include <config.h>
69 #include "lisp.h" 69 #include "lisp.h"
70 70
71 #include "buffer.h" 71 #include "buffer.h"
72 #include "chartab.h" 72 #include "chartab.h"
73 #include "casetab.h"
73 #include "commands.h" 74 #include "commands.h"
74 #include "elhash.h" 75 #include "elhash.h"
75 #include "extents.h" 76 #include "extents.h"
76 #include "faces.h" 77 #include "faces.h"
77 #ifdef FILE_CODING 78 #ifdef FILE_CODING
695 Qpermanent_local, Qnil)))) \ 696 Qpermanent_local, Qnil)))) \
696 b->slot = def->slot; \ 697 b->slot = def->slot; \
697 } 698 }
698 #include "bufslots.h" 699 #include "bufslots.h"
699 #undef MARKED_SLOT 700 #undef MARKED_SLOT
700 #if 0
701 #define STRING256_P(obj) \
702 (STRINGP (obj) && XSTRING_CHAR_LENGTH (obj) == 256)
703 /* If the standard case table has been altered and invalidated,
704 fix up its insides first. */
705 if (!(STRING256_P(Vascii_upcase_table) &&
706 STRING256_P(Vascii_canon_table) &&
707 STRING256_P(Vascii_eqv_table)))
708 {
709 Fset_standard_case_table (Vascii_downcase_table);
710 }
711 b->downcase_table = Vascii_downcase_table;
712 b->upcase_table = Vascii_upcase_table;
713 b->case_canon_table = Vascii_canon_table;
714 b->case_eqv_table = Vascii_eqv_table;
715 #ifdef MULE
716 b->mirror_downcase_table = Vmirror_ascii_downcase_table;
717 b->mirror_upcase_table = Vmirror_ascii_upcase_table;
718 b->mirror_case_canon_table = Vmirror_ascii_canon_table;
719 b->mirror_case_eqv_table = Vmirror_ascii_eqv_table;
720 #endif
721 #endif
722 } 701 }
723 702
724 703
725 /* We split this away from generate-new-buffer, because rename-buffer 704 /* We split this away from generate-new-buffer, because rename-buffer
726 and set-visited-file-name ought to be able to use this to really 705 and set-visited-file-name ought to be able to use this to really
2225 (including a non-terminal component) is a symbolic link as well, but 2204 (including a non-terminal component) is a symbolic link as well, but
2226 doesn't work with hard links (nothing does). 2205 doesn't work with hard links (nothing does).
2227 2206
2228 See also the variable `find-file-use-truenames'. 2207 See also the variable `find-file-use-truenames'.
2229 */ ); 2208 */ );
2209 #if defined(CYGWIN) || defined(WIN32_NATIVE)
2210 find_file_compare_truenames = 1;
2211 #else
2230 find_file_compare_truenames = 0; 2212 find_file_compare_truenames = 0;
2213 #endif
2231 2214
2232 DEFVAR_BOOL ("find-file-use-truenames", &find_file_use_truenames /* 2215 DEFVAR_BOOL ("find-file-use-truenames", &find_file_use_truenames /*
2233 If this is true, then a buffer's visited file-name will always be 2216 If this is true, then a buffer's visited file-name will always be
2234 chased back to the real file; it will never be a symbolic link, and there 2217 chased back to the real file; it will never be a symbolic link, and there
2235 will never be a symbolic link anywhere in its directory path. 2218 will never be a symbolic link anywhere in its directory path.
2425 Must do these before making the first buffer. */ 2408 Must do these before making the first buffer. */
2426 defs->major_mode = Qfundamental_mode; 2409 defs->major_mode = Qfundamental_mode;
2427 defs->mode_name = QSFundamental; 2410 defs->mode_name = QSFundamental;
2428 defs->abbrev_table = Qnil; /* real default setup by Lisp code */ 2411 defs->abbrev_table = Qnil; /* real default setup by Lisp code */
2429 2412
2430 defs->downcase_table = Vascii_downcase_table; 2413 defs->case_table = Vstandard_case_table;
2431 defs->upcase_table = Vascii_upcase_table;
2432 defs->case_canon_table = Vascii_canon_table;
2433 defs->case_eqv_table = Vascii_eqv_table;
2434 #ifdef MULE 2414 #ifdef MULE
2435 defs->mirror_downcase_table = Vmirror_ascii_downcase_table;
2436 defs->mirror_upcase_table = Vmirror_ascii_upcase_table;
2437 defs->mirror_case_canon_table = Vmirror_ascii_canon_table;
2438 defs->mirror_case_eqv_table = Vmirror_ascii_eqv_table;
2439
2440 defs->category_table = Vstandard_category_table; 2415 defs->category_table = Vstandard_category_table;
2441 #endif /* MULE */ 2416 #endif /* MULE */
2442 defs->syntax_table = Vstandard_syntax_table; 2417 defs->syntax_table = Vstandard_syntax_table;
2443 defs->mirror_syntax_table = 2418 defs->mirror_syntax_table =
2444 XCHAR_TABLE (Vstandard_syntax_table)->mirror_table; 2419 XCHAR_TABLE (Vstandard_syntax_table)->mirror_table;
2497 buffer_local_flags.invisibility_spec = always_local_resettable; 2472 buffer_local_flags.invisibility_spec = always_local_resettable;
2498 buffer_local_flags.file_format = always_local_resettable; 2473 buffer_local_flags.file_format = always_local_resettable;
2499 buffer_local_flags.generated_modeline_string = always_local_no_default; 2474 buffer_local_flags.generated_modeline_string = always_local_no_default;
2500 2475
2501 buffer_local_flags.keymap = resettable; 2476 buffer_local_flags.keymap = resettable;
2502 buffer_local_flags.downcase_table = resettable; 2477 buffer_local_flags.case_table = resettable;
2503 buffer_local_flags.upcase_table = resettable;
2504 buffer_local_flags.case_canon_table = resettable;
2505 buffer_local_flags.case_eqv_table = resettable;
2506 buffer_local_flags.syntax_table = resettable; 2478 buffer_local_flags.syntax_table = resettable;
2507 #ifdef MULE 2479 #ifdef MULE
2508 buffer_local_flags.category_table = resettable; 2480 buffer_local_flags.category_table = resettable;
2509 #endif 2481 #endif
2510 2482