Mercurial > emacs

comparison src/bytecode.c @ 89483:2f877ed80fa6

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
*** empty log message ***
author Kenichi Handa <handa@m17n.org>
date Mon, 08 Sep 2003 12:53:41 +0000
parents 375f2633d815 547647cd162a
children 68c22ea6027c
comparison
equal deleted inserted replaced
88123:375f2633d815 89483:2f877ed80fa6
35 */ 35 */
36 36
37 #include <config.h> 37 #include <config.h>
38 #include "lisp.h" 38 #include "lisp.h"
39 #include "buffer.h" 39 #include "buffer.h"
40 #include "charset.h" 40 #include "character.h"
41 #include "syntax.h" 41 #include "syntax.h"
42 #include "window.h" 42 #include "window.h"
43 43
44 #ifdef CHECK_FRAME_FONT 44 #ifdef CHECK_FRAME_FONT
45 #include "frame.h" 45 #include "frame.h"
1435 TOP = Fforward_line (TOP); 1435 TOP = Fforward_line (TOP);
1436 AFTER_POTENTIAL_GC (); 1436 AFTER_POTENTIAL_GC ();
1437 break; 1437 break;
1438 1438
1439 case Bchar_syntax: 1439 case Bchar_syntax:
1440 BEFORE_POTENTIAL_GC (); 1440 {
1441 CHECK_NUMBER (TOP); 1441 int c;
1442 AFTER_POTENTIAL_GC (); 1442
1443 XSETFASTINT (TOP, syntax_code_spec[(int) SYNTAX (XINT (TOP))]); 1443 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 }
1444 break; 1451 break;
1445 1452
1446 case Bbuffer_substring: 1453 case Bbuffer_substring:
1447 { 1454 {
1448 Lisp_Object v1; 1455 Lisp_Object v1;