From: tomo <tomo>
Date: Wed, 30 Jan 2002 18:49:28 +0000 (+0000)
Subject: (struct Lisp_Char_Table): Add new member `unloaded' in UTF-2000.
X-Git-Tag: r21-2-44-lazy-3~3
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=5efaa8c6e5ab548b58f12de5a657248a18b5b1ad;p=chise%2Fxemacs-chise.git

(struct Lisp_Char_Table): Add new member `unloaded' in UTF-2000.
(CHAR_TABLE_UNLOADED): New macro of UTF-2000.
(XCHAR_TABLE_UNLOADED): Likewise.
---

diff --git a/src/chartab.h b/src/chartab.h
index cc4a006..946e967 100644
--- a/src/chartab.h
+++ b/src/chartab.h
@@ -166,6 +166,7 @@ struct Lisp_Char_Table
   Lisp_Object table;
   Lisp_Object default_value;
   Lisp_Object name;
+  unsigned char unloaded;
 #else
   Lisp_Object ascii[NUM_ASCII_CHARS];
 
@@ -225,6 +226,9 @@ DECLARE_LRECORD (char_table, Lisp_Char_Table);
 #define CHAR_TABLE_NAME(ct) ((ct)->name)
 #define XCHAR_TABLE_NAME(ct) CHAR_TABLE_NAME (XCHAR_TABLE (ct))
 
+#define CHAR_TABLE_UNLOADED(ct) ((ct)->unloaded)
+#define XCHAR_TABLE_UNLOADED(ct) CHAR_TABLE_UNLOADED (XCHAR_TABLE (ct))
+
 INLINE_HEADER Lisp_Object
 CHAR_TABLE_VALUE_UNSAFE (Lisp_Char_Table *ct, Emchar ch);
 INLINE_HEADER Lisp_Object