diff options
| author | Kenichi Handa | 2002-09-03 04:06:33 +0000 |
|---|---|---|
| committer | Kenichi Handa | 2002-09-03 04:06:33 +0000 |
| commit | 9281d0779766a39f743240e33dd46a1accf0f7fa (patch) | |
| tree | 3205660915624123284099c19987f17676186eb0 /src/bytecode.c | |
| parent | 1464b3d8a8daa491d146bdf88ffb1fc73ee6422e (diff) | |
| download | emacs-9281d0779766a39f743240e33dd46a1accf0f7fa.tar.gz emacs-9281d0779766a39f743240e33dd46a1accf0f7fa.zip | |
(Fbyte_code): Convert a unibyte character to multibyte if necessary.
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: |