From: tomo <tomo>
Date: Fri, 31 Aug 2001 05:46:55 +0000 (+0000)
Subject: (get_char_id_table): Change interface.
X-Git-Tag: r21-2-41-utf-2000-0_17-2~19
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=537dfe8c0d01cb651a9dd679c98a95b160f9274e;p=chise%2Fxemacs-chise.git-

(get_char_id_table): Change interface.
(charset_code_point): Modify for interface change of `get_char_id_table'.
(encode_char_1): Likewise.
---

diff --git a/src/char-ucs.h b/src/char-ucs.h
index 7c60319..35038ad 100644
--- a/src/char-ucs.h
+++ b/src/char-ucs.h
@@ -100,7 +100,7 @@ DECLARE_LRECORD (char_id_table, Lisp_Char_ID_Table);
    char table entries should never escape to Lisp */
 
 
-Lisp_Object get_char_id_table (Emchar ch, Lisp_Object table);
+Lisp_Object get_char_id_table (Lisp_Char_ID_Table* cit, Emchar ch);
 
 
 extern Lisp_Object Vcharset_mojikyo;
@@ -663,7 +663,8 @@ charset_code_point (Lisp_Object charset, Emchar ch)
   Lisp_Object ret;
 
   if ( CHAR_ID_TABLE_P (encoding_table)
-       && INTP (ret = get_char_id_table (ch, encoding_table)) )
+       && INTP (ret = get_char_id_table (XCHAR_ID_TABLE(encoding_table),
+					 ch)) )
     return XINT (ret);
   else
     return range_charset_code_point (charset, ch);
@@ -687,7 +688,9 @@ encode_char_1 (Emchar ch, Lisp_Object* charset)
 	  Lisp_Object ret;
 
 	  if ( CHAR_ID_TABLE_P (encoding_table)
-	       && INTP (ret = get_char_id_table (ch, encoding_table)) )
+	       && INTP (ret
+			= get_char_id_table (XCHAR_ID_TABLE(encoding_table),
+					     ch)) )
 	    return XINT (ret);
 	  else
 	    {