X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=src%2Fchartab.h;h=dc4301ad892f19d5440a5244bef099376b579a4f;hb=debb7eb5baa3e6aae77e4fc0b7704887baf3006e;hp=2aa4931265d2ea0cf78264bbad40cadd2fefa8ad;hpb=fc475e6669a613cd6d98eb5511c749a23b63c7ac;p=chise%2Fxemacs-chise.git

diff --git a/src/chartab.h b/src/chartab.h
index 2aa4931..dc4301a 100644
--- a/src/chartab.h
+++ b/src/chartab.h
@@ -141,7 +141,11 @@ CHAR_TABLE_NON_ASCII_VALUE_UNSAFE (struct Lisp_Char_Table *ct, Emchar ch);
 INLINE Lisp_Object
 CHAR_TABLE_NON_ASCII_VALUE_UNSAFE (struct Lisp_Char_Table *ct, Emchar ch)
 {
-  unsigned char lb = CHAR_LEADING_BYTE (ch);
+#ifdef UTF2000
+  Charset_ID lb = CHAR_CHARSET_ID (ch);
+#else
+  Charset_ID lb = CHAR_LEADING_BYTE (ch);
+#endif
   if (!CHAR_TABLE_ENTRYP ((ct)->level1[lb - MIN_LEADING_BYTE]))
     return (ct)->level1[lb - MIN_LEADING_BYTE];
   else
@@ -191,6 +195,7 @@ void prune_syntax_tables (int (*obj_marked_p) (Lisp_Object));
 EXFUN (Fcopy_char_table, 1);
 EXFUN (Fmake_char_table, 1);
 EXFUN (Fput_char_table, 3);
+EXFUN (Fget_char_table, 2);
 
 extern Lisp_Object Vall_syntax_tables;