From: tomo <tomo>
Date: Mon, 30 Aug 1999 17:31:10 +0000 (+0000)
Subject: (get_non_ascii_char_table_value): Don't use `BREAKUP_CHAR_1_UNSAFE' in
X-Git-Tag: r21-2-19-utf-2000-0_5-0~24
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=d27f3b5ec317a3022d0be42558226bc6512cab4e;p=chise%2Fxemacs-chise.git.1

(get_non_ascii_char_table_value): Don't use `BREAKUP_CHAR_1_UNSAFE' in
UTF-2000.
---

diff --git a/src/chartab.c b/src/chartab.c
index 4e7480d..51e62ee 100644
--- a/src/chartab.c
+++ b/src/chartab.c
@@ -771,10 +771,18 @@ get_non_ascii_char_table_value (struct Lisp_Char_Table *ct, int leading_byte,
 			       Emchar c)
 {
   Lisp_Object val;
+#ifdef UTF2000
+  Lisp_Object charset;
+#else
   Lisp_Object charset = CHARSET_BY_LEADING_BYTE (leading_byte);
+#endif
   int byte1, byte2;
 
+#ifdef UTF2000
+  BREAKUP_CHAR (c, charset, byte1, byte2);
+#else
   BREAKUP_CHAR_1_UNSAFE (c, charset, byte1, byte2);
+#endif
   val = ct->level1[leading_byte - MIN_LEADING_BYTE];
   if (CHAR_TABLE_ENTRYP (val))
     {