From: tomo <tomo>
Date: Thu, 31 Oct 2002 08:07:41 +0000 (+0000)
Subject: (put_char_table): Modify for `charset_code_point'.
X-Git-Tag: r21-4-9-utf-2000-0_19-ecdo~3
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=c5aa8a4c165e6f553f1db995b492ee0a1d88b3df;p=chise%2Fxemacs-chise.git

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

diff --git a/src/chartab.c b/src/chartab.c
index 6d01d3e..73ada6f 100644
--- a/src/chartab.c
+++ b/src/chartab.c
@@ -2436,7 +2436,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);
 	  }
       }
@@ -2878,7 +2878,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