From: tomo <tomo>
Date: Thu, 31 Oct 2002 11:06:09 +0000 (+0000)
Subject: (put_char_table): Modify for `charset_code_point'.
X-Git-Tag: r21-2-44-utf-2000-m0_18-ecdo~3
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=1747af31aaafd39c4b62518fb7b4955a0b92c4cc;p=chise%2Fxemacs-chise.git-

(put_char_table): Modify for `charset_code_point'.
(map_char_table): Likewise.
---

diff --git a/src/chartab.c b/src/chartab.c
index cd30619..6e12d84 100644
--- a/src/chartab.c
+++ b/src/chartab.c
@@ -2143,7 +2143,7 @@ put_char_table (Lisp_Char_Table *ct, struct chartab_range *range,
 	  {
 	    for (c = 0; c < 1 << 24; c++)
 	      {
-		if ( charset_code_point (range->charset, c) >= 0 )
+		if ( charset_code_point (range->charset, c, 0) >= 0 )
 		  put_char_id_table_0 (ct, c, val);
 	      }
 	  }
@@ -2181,7 +2181,7 @@ put_char_table (Lisp_Char_Table *ct, struct chartab_range *range,
 	  {
 	    Emchar ch = DECODE_CHAR (range->charset, (range->row << 8) | i);
 
-	    if ( charset_code_point (range->charset, ch) >= 0 )
+	    if ( charset_code_point (range->charset, ch, 0) >= 0 )
 	      put_char_id_table_0 (ct, ch, val);
 	  }
       }
@@ -2611,7 +2611,7 @@ map_char_table (Lisp_Char_Table *ct,
 	  {
 	    Emchar ch = DECODE_CHAR (range->charset, (range->row << 8) | i);
 
-	    if ( charset_code_point (range->charset, ch) >= 0 )
+	    if ( charset_code_point (range->charset, ch, 0) >= 0 )
 	      {
 		Lisp_Object val
 		  = get_byte_table (get_byte_table