From 19642ae21cbdca722f34b272007705437d9a7fc7 Mon Sep 17 00:00:00 2001
From: tomo <tomo>
Date: Fri, 7 Sep 2001 06:05:10 +0000
Subject: [PATCH] (put_char_id_table): Moved to chartab.h as an inline
 function. (decode_char_table_range): Delete static
 declaration in XEmacs UTF-2000.

---
 src/chartab.c |   18 ++++--------------
 1 file changed, 4 insertions(+), 14 deletions(-)

diff --git a/src/chartab.c b/src/chartab.c
index 8260714..4141e88 100644
--- a/src/chartab.c
+++ b/src/chartab.c
@@ -67,9 +67,6 @@ Lisp_Object Vword_combining_categories, Vword_separating_categories;
 
 #ifdef UTF2000
 
-static void
-decode_char_table_range (Lisp_Object range, struct chartab_range *outrange);
-
 #define BT_UINT8_MIN		0
 #define BT_UINT8_MAX	(UCHAR_MAX - 3)
 #define BT_UINT8_t	(UCHAR_MAX - 2)
@@ -859,16 +856,6 @@ get_char_id_table (Lisp_Char_Table* cit, Emchar ch)
     return val;
 }
 
-void
-put_char_id_table (Lisp_Char_Table* cit,
-		   Lisp_Object character, Lisp_Object value)
-{
-  struct chartab_range range;
-
-  decode_char_table_range (character, &range);
-  put_char_table (cit, &range, value);
-}
-
 
 Lisp_Object Vcharacter_composition_table;
 Lisp_Object Vcharacter_variant_table;
@@ -1732,7 +1719,10 @@ as CHAR-TABLE.  The values will not themselves be copied.
   return obj;
 }
 
-static void
+#ifndef UTF2000
+static
+#endif
+void
 decode_char_table_range (Lisp_Object range, struct chartab_range *outrange)
 {
   if (EQ (range, Qt))
-- 
1.7.10.4