Mercurial > hg > xemacs-beta

comparison src/syntax.c @ 3152:b85f5d7d9d82

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2005-12-18 22:55:51 by aidan] To my embarrassment, my previous change didn't actually work. This change makes (char-syntax (make-char 'arabic-1-column 50)) give ?w, the expected result after my last change.
author aidan
date Sun, 18 Dec 2005 22:55:52 +0000
parents 141c2920ea48
children 2b8bb4938bb4
comparison
equal deleted inserted replaced
3151:b21b869f107d 3152:b85f5d7d9d82
611 charset_syntax (struct buffer *UNUSED (buf), Lisp_Object UNUSED (charset), 611 charset_syntax (struct buffer *UNUSED (buf), Lisp_Object UNUSED (charset),
612 int *multi_p_out) 612 int *multi_p_out)
613 { 613 {
614 *multi_p_out = 1; 614 *multi_p_out = 1;
615 /* !!#### get this right */ 615 /* !!#### get this right */
616 return Spunct; 616 return Sword;
617 } 617 }
618 618
619 #endif 619 #endif
620 620
621 Lisp_Object 621 Lisp_Object
2294 /* second clause catches bootstrapping problems when initializing the 2294 /* second clause catches bootstrapping problems when initializing the
2295 standard syntax table */ 2295 standard syntax table */
2296 if (!EQ (table, Vstandard_syntax_table) && !NILP (Vstandard_syntax_table)) 2296 if (!EQ (table, Vstandard_syntax_table) && !NILP (Vstandard_syntax_table))
2297 map_char_table (Vstandard_syntax_table, &range, 2297 map_char_table (Vstandard_syntax_table, &range,
2298 copy_if_not_already_present, LISP_TO_VOID (mirrortab)); 2298 copy_if_not_already_present, LISP_TO_VOID (mirrortab));
2299 /* The resetting made the default be Qnil. Put it back to Spunct. */ 2299 /* The resetting made the default be Qnil. Put it back to Sword. */
2300 set_char_table_default (mirrortab, make_int (Spunct)); 2300 set_char_table_default (mirrortab, make_int (Sword));
2301 XCHAR_TABLE (mirrortab)->dirty = 0; 2301 XCHAR_TABLE (mirrortab)->dirty = 0;
2302 } 2302 }
2303 2303
2304 /* Called from chartab.c when a change is made to a syntax table. 2304 /* Called from chartab.c when a change is made to a syntax table.
2305 If this is the standard syntax table, we need to recompute 2305 If this is the standard syntax table, we need to recompute
2417 2417
2418 Vsyntax_designator_chars_string = make_string_nocopy (syntax_code_spec, 2418 Vsyntax_designator_chars_string = make_string_nocopy (syntax_code_spec,
2419 Smax); 2419 Smax);
2420 staticpro (&Vsyntax_designator_chars_string); 2420 staticpro (&Vsyntax_designator_chars_string);
2421 2421
2422 set_char_table_default (Vstandard_syntax_table, make_int (Spunct)); 2422 set_char_table_default (Vstandard_syntax_table, make_int (Sword));
2423 2423
2424 for (i = 0; i <= 32; i++) /* Control 0 plus SPACE */ 2424 for (i = 0; i <= 32; i++) /* Control 0 plus SPACE */
2425 Fput_char_table (make_char (i), make_int (Swhitespace), 2425 Fput_char_table (make_char (i), make_int (Swhitespace),
2426 Vstandard_syntax_table); 2426 Vstandard_syntax_table);
2427 for (i = 127; i <= 159; i++) /* DEL plus Control 1 */ 2427 for (i = 127; i <= 159; i++) /* DEL plus Control 1 */