Mercurial > emacs

comparison src/bytecode.c @ 89052:547647cd162a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(Fbyte_code): Convert a unibyte character to multibyte if necessary.
author Kenichi Handa <handa@m17n.org>
date Tue, 03 Sep 2002 04:06:33 +0000
parents aac41b50c875
children 2f877ed80fa6
comparison
equal deleted inserted replaced
89051:98dcb14bf34c 89052:547647cd162a
1431 TOP = Fforward_line (TOP); 1431 TOP = Fforward_line (TOP);
1432 AFTER_POTENTIAL_GC (); 1432 AFTER_POTENTIAL_GC ();
1433 break; 1433 break;
1434 1434
1435 case Bchar_syntax: 1435 case Bchar_syntax:
1436 BEFORE_POTENTIAL_GC (); 1436 {
1437 CHECK_NUMBER (TOP); 1437 int c;
1438 AFTER_POTENTIAL_GC (); 1438
1439 XSETFASTINT (TOP, syntax_code_spec[(int) SYNTAX (XINT (TOP))]); 1439 BEFORE_POTENTIAL_GC ();
1440 CHECK_CHARACTER (TOP);
1441 AFTER_POTENTIAL_GC ();
1442 c = XFASTINT (TOP);
1443 if (NILP (current_buffer->enable_multibyte_characters))
1444 MAKE_CHAR_MULTIBYTE (c);
1445 XSETFASTINT (TOP, syntax_code_spec[(int) SYNTAX (c)]);
1446 }
1440 break; 1447 break;
1441 1448
1442 case Bbuffer_substring: 1449 case Bbuffer_substring:
1443 { 1450 {
1444 Lisp_Object v1; 1451 Lisp_Object v1;