diff options
| author | Kenichi Handa <handa@m17n.org> | 1998-11-16 01:17:06 +0000 |
|---|---|---|
| committer | Kenichi Handa <handa@m17n.org> | 1998-11-16 01:17:06 +0000 |
| commit | 0b58a513d939b4433e99da3be12634e942f80107 (patch) | |
| tree | 155b65fa55e1b1ff3f81bbc5768360951e14cf6b /src/syntax.h | |
| parent | 436cc82c6ae2c0a1905d852afe3486a4b6fa5d35 (diff) | |
| download | emacs-0b58a513d939b4433e99da3be12634e942f80107.tar.gz | |
(SYNTAX_ENTRY_INT): For a composite character, check
the first component.
Diffstat (limited to 'src/syntax.h')
| -rw-r--r-- | src/syntax.h | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/src/syntax.h b/src/syntax.h index 4b58b5da636..010f063e677 100644 --- a/src/syntax.h +++ b/src/syntax.h @@ -105,11 +105,14 @@ extern Lisp_Object syntax_parent_lookup P_ ((Lisp_Object, int)); # define CURRENT_SYNTAX_TABLE current_buffer->syntax_table #endif -#define SYNTAX_ENTRY_INT(c) \ +#define SYNTAX_ENTRY_INT(c) \ ((c) < CHAR_TABLE_SINGLE_BYTE_SLOTS \ - ? SYNTAX_ENTRY_FOLLOW_PARENT (CURRENT_SYNTAX_TABLE, \ + ? SYNTAX_ENTRY_FOLLOW_PARENT (CURRENT_SYNTAX_TABLE, \ (unsigned char) (c)) \ - : Faref (CURRENT_SYNTAX_TABLE, make_number ((c)))) + : Faref (CURRENT_SYNTAX_TABLE, \ + make_number (COMPOSITE_CHAR_P (c) \ + ? cmpchar_component ((c), 0, 1) \ + : (c)))) /* Extract the information from the entry for character C in the current syntax table. */ |