From 0b58a513d939b4433e99da3be12634e942f80107 Mon Sep 17 00:00:00 2001 From: Kenichi Handa Date: Mon, 16 Nov 1998 01:17:06 +0000 Subject: [PATCH] (SYNTAX_ENTRY_INT): For a composite character, check the first component. --- src/syntax.h | 9 ++++++--- 1 file 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. */ -- 2.39.2