From: tomo Date: Sun, 2 Sep 2001 16:38:41 +0000 (+0000) Subject: Include "chartab.h". X-Git-Tag: r21-2-41-chartab-2~27 X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=7c96910d9880f1bd384c29822a9306f7b7f9a212;p=chise%2Fxemacs-chise.git Include "chartab.h". (struct Lisp_Char_ID_Table): Moved to chartab.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/char-ucs.h b/src/char-ucs.h index 35038ad..c704d38 100644 --- a/src/char-ucs.h +++ b/src/char-ucs.h @@ -21,6 +21,8 @@ Boston, MA 02111-1307, USA. */ #ifndef INCLUDED_char_ucs_h_ #define INCLUDED_char_ucs_h_ +#include "chartab.h" + #define valid_char_p(ch) 1 #define CHAR_ASCII_P(ch) ((ch) <= 0x7F) @@ -83,26 +85,6 @@ DECLARE_LRECORD (byte_table, Lisp_Byte_Table); char table entries should never escape to Lisp */ -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 get_char_id_table (Lisp_Char_ID_Table* cit, Emchar ch); - - extern Lisp_Object Vcharset_mojikyo; extern Lisp_Object Vcharset_mojikyo_2022_1; extern Lisp_Object Vcharset_latin_jisx0201;