Parent Directory | Revision Log | Patch
revision 1.77 by monnier, Sun Jul 6 19:30:10 2003 UTC | revision 1.77.2.1 by handa, Mon Sep 8 12:48:09 2003 UTC | |
---|---|---|
# | Line 37 by Hallvard: | Line 37 by Hallvard: |
37 | #include <config.h> | #include <config.h> |
38 | #include "lisp.h" | #include "lisp.h" |
39 | #include "buffer.h" | #include "buffer.h" |
40 | #include "charset.h" | #include "character.h" |
41 | #include "syntax.h" | #include "syntax.h" |
42 | #include "window.h" | #include "window.h" |
43 | ||
# | Line 1437 If the third argument is incorrect, Emac | Line 1437 If the third argument is incorrect, Emac |
1437 | break; | break; |
1438 | ||
1439 | case Bchar_syntax: | case Bchar_syntax: |
1440 | BEFORE_POTENTIAL_GC (); | { |
1441 | CHECK_NUMBER (TOP); | int c; |
1442 | AFTER_POTENTIAL_GC (); | |
1443 | XSETFASTINT (TOP, syntax_code_spec[(int) SYNTAX (XINT (TOP))]); | BEFORE_POTENTIAL_GC (); |
1444 | CHECK_CHARACTER (TOP); | |
1445 | AFTER_POTENTIAL_GC (); | |
1446 | c = XFASTINT (TOP); | |
1447 | if (NILP (current_buffer->enable_multibyte_characters)) | |
1448 | MAKE_CHAR_MULTIBYTE (c); | |
1449 | XSETFASTINT (TOP, syntax_code_spec[(int) SYNTAX (c)]); | |
1450 | } | |
1451 | break; | break; |
1452 | ||
1453 | case Bbuffer_substring: | case Bbuffer_substring: |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |