From: Kenichi Handa <handa@m17n.org>
Date: Mon, 16 Nov 1998 01:17:06 +0000 (+0000)
Subject: (SYNTAX_ENTRY_INT): For a composite character, check
X-Git-Tag: emacs-20.4~1236
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=0b58a513d939b4433e99da3be12634e942f80107;p=emacs.git

(SYNTAX_ENTRY_INT): For a composite character, check
the first component.
---

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.  */