From: tomo <tomo>
Date: Sun, 2 Sep 2001 16:40:25 +0000 (+0000)
Subject: Don't include "chartab.h".
X-Git-Tag: r21-2-41-chartab-2~26
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=f315b1fc3cb522dd891f2a848d1857333b5a624c;p=chise%2Fxemacs-chise.git-

Don't include "chartab.h".
(struct Lisp_Char_ID_Table): Moved from char-ucs.h.
(Lisp_Char_ID_Table): Likewise.
(char_id_table): Likewise.
(XCHAR_ID_TABLE): Likewise.
(XSETCHAR_ID_TABLE): Likewise.
(CHAR_ID_TABLE_P): Likewise.
(GC_CHAR_ID_TABLE_P): Likewise.
(get_char_id_table): Likewise.
---

diff --git a/src/chartab.h b/src/chartab.h
index d353bd3..b124a4d 100644
--- a/src/chartab.h
+++ b/src/chartab.h
@@ -30,15 +30,32 @@ Boston, MA 02111-1307, USA.  */
 
 #ifdef UTF2000
 
-#include "char-ucs.h"
-
 Lisp_Object get_byte_table (Lisp_Object table, unsigned char idx);
 
 Lisp_Object put_byte_table (Lisp_Object table, unsigned char idx,
 			    Lisp_Object value);
 
+struct Lisp_Char_ID_Table
+{
+  struct lcrecord_header header;
+
+  Lisp_Object table;
+};
+typedef struct Lisp_Char_ID_Table Lisp_Char_ID_Table;
+
+DECLARE_LRECORD (char_id_table, Lisp_Char_ID_Table);
+#define XCHAR_ID_TABLE(x) XRECORD (x, char_id_table, Lisp_Char_ID_Table)
+#define XSETCHAR_ID_TABLE(x, p) XSETRECORD (x, p, char_id_table)
+#define CHAR_ID_TABLE_P(x) RECORDP (x, char_id_table)
+#define GC_CHAR_ID_TABLE_P(x) GC_RECORDP (x, char_id_table)
+/* #define CHECK_CHAR_ID_TABLE(x) CHECK_RECORD (x, char_id_table)
+   char table entries should never escape to Lisp */
+
+
 Lisp_Object make_char_id_table (Lisp_Object initval);
 
+Lisp_Object get_char_id_table (Lisp_Char_ID_Table* cit, Emchar ch);
+
 INLINE_HEADER void
 put_char_id_table_0 (Lisp_Char_ID_Table* cit, Emchar code, Lisp_Object value);
 INLINE_HEADER void