diff options
Diffstat (limited to 'src/bytecode.c')
| -rw-r--r-- | src/bytecode.c | 15 |
1 files changed, 11 insertions, 4 deletions
diff --git a/src/bytecode.c b/src/bytecode.c index 6c4e34ddaa7..df6eb266eb9 100644 --- a/src/bytecode.c +++ b/src/bytecode.c | |||
| @@ -1433,10 +1433,17 @@ If the third argument is incorrect, Emacs may crash. */) | |||
| 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: |