From: tomo <tomo>
Date: Fri, 7 Sep 2001 06:05:10 +0000 (+0000)
Subject: (put_char_id_table): Moved to chartab.h as an inline function.
X-Git-Tag: r21-2-41-utf-2000-0_18-1~530
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=19642ae21cbdca722f34b272007705437d9a7fc7;p=chise%2Fxemacs-chise.git-

(put_char_id_table): Moved to chartab.h as an inline function.
(decode_char_table_range): Delete static declaration in XEmacs
UTF-2000.
---

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