From: tomo <tomo>
Date: Wed, 14 Nov 2001 02:52:42 +0000 (+0000)
Subject: (uint8_byte_table_description): New constant.
X-Git-Tag: r21-2-41-utf-2000-0_18-1~8
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=35c58b13409cb56d8362a9884063cd88683d3381;p=chise%2Fxemacs-chise.git-

(uint8_byte_table_description): New constant.
(uint8-byte-table): Use `uint8_byte_table_description'.
(uint16_byte_table_description): New constant.
(uint16-byte-table): Use `uint16_byte_table_description'.
---

diff --git a/src/chartab.c b/src/chartab.c
index e941464..84878f4 100644
--- a/src/chartab.c
+++ b/src/chartab.c
@@ -190,12 +190,16 @@ uint8_byte_table_hash (Lisp_Object obj, int depth)
   return hash;
 }
 
+static const struct lrecord_description uint8_byte_table_description[] = {
+  { XD_END }
+};
+
 DEFINE_LRECORD_IMPLEMENTATION ("uint8-byte-table", uint8_byte_table,
                                mark_uint8_byte_table,
 			       print_uint8_byte_table,
 			       0, uint8_byte_table_equal,
 			       uint8_byte_table_hash,
-			       0 /* uint8_byte_table_description */,
+			       uint8_byte_table_description,
 			       Lisp_Uint8_Byte_Table);
 
 static Lisp_Object
@@ -415,12 +419,16 @@ uint16_byte_table_hash (Lisp_Object obj, int depth)
   return hash;
 }
 
+static const struct lrecord_description uint16_byte_table_description[] = {
+  { XD_END }
+};
+
 DEFINE_LRECORD_IMPLEMENTATION ("uint16-byte-table", uint16_byte_table,
                                mark_uint16_byte_table,
 			       print_uint16_byte_table,
 			       0, uint16_byte_table_equal,
 			       uint16_byte_table_hash,
-			       0 /* uint16_byte_table_description */,
+			       uint16_byte_table_description,
 			       Lisp_Uint16_Byte_Table);
 
 static Lisp_Object