From: tomo <tomo>
Date: Fri, 31 Aug 2001 05:50:53 +0000 (+0000)
Subject: (put_char_ccs_code_point): Modify for interface change of
X-Git-Tag: r21-2-41-utf-2000-0_17-2~17
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=e5a6fbf8fd48090f4c04aafd4ba4caad0313f2bb;p=chise%2Fxemacs-chise.git-

(put_char_ccs_code_point): Modify for interface change of
`put_char_id_table'.
(remove_char_ccs): Likewise.
---

diff --git a/src/mule-charset.c b/src/mule-charset.c
index ae25638..69102db 100644
--- a/src/mule-charset.c
+++ b/src/mule-charset.c
@@ -353,7 +353,7 @@ put_char_ccs_code_point (Lisp_Object character,
       XCHARSET_ENCODING_TABLE (ccs)
 	= encoding_table = make_char_id_table (Qnil);
     }
-  put_char_id_table (XCHAR (character), value, encoding_table);
+  put_char_id_table (XCHAR_ID_TABLE(encoding_table), character, value);
   return Qt;
 }
 
@@ -377,7 +377,7 @@ remove_char_ccs (Lisp_Object character, Lisp_Object ccs)
     }
   if (CHAR_ID_TABLE_P (encoding_table))
     {
-      put_char_id_table (XCHAR (character), Qnil, encoding_table);
+      put_char_id_table (XCHAR_ID_TABLE(encoding_table), character, Qnil);
     }
   return Qt;
 }