From debb7eb5baa3e6aae77e4fc0b7704887baf3006e Mon Sep 17 00:00:00 2001 From: tomo Date: Fri, 12 Nov 1999 07:47:43 +0000 Subject: [PATCH] (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. --- src/char-ucs.h | 17 +++++++++++++++++ 1 file changed, 17 insertions(+) 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); -- 1.7.10.4