Mercurial > hg > xemacs-beta

comparison src/syntax.c @ 3544:981a144e71fa

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2006-08-05 08:30:35 by aidan] Eliminate some Windows build errors that also happen with gcc -pedantic.
author aidan
date Sat, 05 Aug 2006 08:30:36 +0000
parents efa52de8c279
children 6486a15d7e3e
comparison
equal deleted inserted replaced
3543:c136144fe765 3544:981a144e71fa
2488 set_char_table_default (Vstandard_syntax_table, make_int (Sword)); 2488 set_char_table_default (Vstandard_syntax_table, make_int (Sword));
2489 2489
2490 /* Control 0; treat as punctuation */ 2490 /* Control 0; treat as punctuation */
2491 SET_RANGE_SYNTAX(0, 32, Spunct); 2491 SET_RANGE_SYNTAX(0, 32, Spunct);
2492 2492
2493 /* The whitespace--overwriting some of the above changes. */ 2493 /* The whitespace--overwriting some of the above changes.
2494 define_standard_syntax(" \t\015\014", Swhitespace); 2494
2495 String literals are const char *s, not const unsigned char *s. */
2496 define_standard_syntax((const UExtbyte *)" \t\015\014", Swhitespace);
2495 2497
2496 /* DEL plus Control 1 */ 2498 /* DEL plus Control 1 */
2497 SET_RANGE_SYNTAX(127, 159, Spunct); 2499 SET_RANGE_SYNTAX(127, 159, Spunct);
2498 2500
2499 define_standard_syntax ("\"", Sstring); 2501 define_standard_syntax ((const UExtbyte *)"\"", Sstring);
2500 define_standard_syntax ("\\", Sescape); 2502 define_standard_syntax ((const UExtbyte *)"\\", Sescape);
2501 define_standard_syntax ("_-+*/&|<>=", Ssymbol); 2503 define_standard_syntax ((const UExtbyte *)"_-+*/&|<>=", Ssymbol);
2502 define_standard_syntax (".,;:?!#@~^'`", Spunct); 2504 define_standard_syntax ((const UExtbyte *)".,;:?!#@~^'`", Spunct);
2503 2505
2504 for (p = "()[]{}"; *p; p+=2) 2506 for (p = (const UExtbyte *)"()[]{}"; *p; p+=2)
2505 { 2507 {
2506 Fput_char_table (make_char (p[0]), 2508 Fput_char_table (make_char (p[0]),
2507 Fcons (make_int (Sopen), make_char (p[1])), 2509 Fcons (make_int (Sopen), make_char (p[1])),
2508 Vstandard_syntax_table); 2510 Vstandard_syntax_table);
2509 Fput_char_table (make_char (p[1]), 2511 Fput_char_table (make_char (p[1]),
2515 constituents. */ 2517 constituents. */
2516 SET_RANGE_SYNTAX(0240, 0277, Ssymbol); 2518 SET_RANGE_SYNTAX(0240, 0277, Ssymbol);
2517 2519
2518 /* The guillemets. These are not parentheses, in contrast to what the old 2520 /* The guillemets. These are not parentheses, in contrast to what the old
2519 code did. */ 2521 code did. */
2520 define_standard_syntax("\253\273", Sstring); 2522 define_standard_syntax((const UExtbyte *)"\253\273", Sstring);
2521 2523
2522 /* The inverted exclamation mark, and the multiplication and division 2524 /* The inverted exclamation mark, and the multiplication and division
2523 signs. */ 2525 signs. */
2524 define_standard_syntax("\241\327\367", Spunct); 2526 define_standard_syntax((const UExtbyte *)"\241\327\367", Spunct);
2525 2527
2526 #undef SET_RANGE_SYNTAX 2528 #undef SET_RANGE_SYNTAX
2527 } 2529 }