From: tomo <tomo>
Date: Mon, 3 Sep 2001 13:09:39 +0000 (+0000)
Subject: (charset_code_point): Use `CHAR_TABLEP' instead of `CHAR_ID_TABLE_P'.
X-Git-Tag: r21-2-41-chartab-2~13
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=21dc534dfe2b2bd103b3d7d19906562936ce6e79;p=chise%2Fxemacs-chise.git

(charset_code_point): Use `CHAR_TABLEP' instead of `CHAR_ID_TABLE_P'.
(encode_char_1): Likewise.
---

diff --git a/src/char-ucs.h b/src/char-ucs.h
index 084a211..e3c6763 100644
--- a/src/char-ucs.h
+++ b/src/char-ucs.h
@@ -586,7 +586,7 @@ charset_code_point (Lisp_Object charset, Emchar ch)
   Lisp_Object encoding_table = XCHARSET_ENCODING_TABLE (charset);
   Lisp_Object ret;
 
-  if ( CHAR_ID_TABLE_P (encoding_table)
+  if ( CHAR_TABLEP (encoding_table)
        && INTP (ret = get_char_id_table (XCHAR_TABLE(encoding_table),
 					 ch)) )
     return XINT (ret);
@@ -611,7 +611,7 @@ encode_char_1 (Emchar ch, Lisp_Object* charset)
 	  Lisp_Object encoding_table = XCHARSET_ENCODING_TABLE (*charset);
 	  Lisp_Object ret;
 
-	  if ( CHAR_ID_TABLE_P (encoding_table)
+	  if ( CHAR_TABLEP (encoding_table)
 	       && INTP (ret
 			= get_char_id_table (XCHAR_TABLE(encoding_table),
 					     ch)) )