(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 (file)
--- 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