From: tomo <tomo>
Date: Fri, 12 Nov 1999 07:47:43 +0000 (+0000)
Subject: (char_code_table): New type.
X-Git-Tag: r21-2-19-utf-2000-0_12-0~109
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=debb7eb5baa3e6aae77e4fc0b7704887baf3006e;p=chise%2Fxemacs-chise.git

(char_code_table): New type.
(XCHAR_CODE_TABLE): New macro.
(XSETCHAR_CODE_TABLE): New macro.
(CHAR_CODE_TABLE_P): New macro.
(GC_CHAR_CODE_TABLE_P): New macro.
(struct Lisp_Char_Code_Table): New structure.
---

diff --git a/src/char-ucs.h b/src/char-ucs.h
index 7163c9e..a05f475 100644
--- a/src/char-ucs.h
+++ b/src/char-ucs.h
@@ -45,6 +45,23 @@ struct Lisp_Char_Byte_Table
   Lisp_Object property[256];
 };
 
+
+DECLARE_LRECORD (char_code_table, struct Lisp_Char_Code_Table);
+#define XCHAR_CODE_TABLE(x) \
+  XRECORD (x, char_code_table, struct Lisp_Char_Code_Table)
+#define XSETCHAR_CODE_TABLE(x, p) XSETRECORD (x, p, char_code_table)
+#define CHAR_CODE_TABLE_P(x) RECORDP (x, char_code_table)
+#define GC_CHAR_CODE_TABLE_P(x) GC_RECORDP (x, char_code_table)
+/* #define CHECK_CHAR_CODE_TABLE(x) CHECK_RECORD (x, char_code_table)
+   char table entries should never escape to Lisp */
+
+struct Lisp_Char_Code_Table
+{
+  struct lcrecord_header header;
+
+  Lisp_Object table;
+};
+
 Lisp_Object get_char_code_table (Emchar ch, Lisp_Object table);