diff options
Diffstat (limited to 'src/syntax.c')
| -rw-r--r-- | src/syntax.c | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/src/syntax.c b/src/syntax.c index 9df878b8edf..13c36fdf3cd 100644 --- a/src/syntax.c +++ b/src/syntax.c | |||
| @@ -1101,10 +1101,11 @@ this is probably the wrong function to use, because it can't take | |||
| 1101 | `syntax-after' instead. */) | 1101 | `syntax-after' instead. */) |
| 1102 | (Lisp_Object character) | 1102 | (Lisp_Object character) |
| 1103 | { | 1103 | { |
| 1104 | int char_int; | ||
| 1105 | CHECK_CHARACTER (character); | 1104 | CHECK_CHARACTER (character); |
| 1106 | char_int = XFIXNUM (character); | 1105 | int char_int = XFIXNAT (character); |
| 1107 | SETUP_BUFFER_SYNTAX_TABLE (); | 1106 | SETUP_BUFFER_SYNTAX_TABLE (); |
| 1107 | if (NILP (BVAR (current_buffer, enable_multibyte_characters))) | ||
| 1108 | char_int = make_char_multibyte (char_int); | ||
| 1108 | return make_fixnum (syntax_code_spec[SYNTAX (char_int)]); | 1109 | return make_fixnum (syntax_code_spec[SYNTAX (char_int)]); |
| 1109 | } | 1110 | } |
| 1110 | 1111 | ||