From: tomo <tomo>
Date: Thu, 10 Oct 2002 16:55:35 +0000 (+0000)
Subject: (put_char_table): When a charset is specified as a range in UTF-2000,
X-Git-Tag: r21-4-9-utf-2000-0_19-jc3-md1~3
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=06d4addf4a36608d35f1d86383fb96b942ad7826;p=chise%2Fxemacs-chise.git

(put_char_table): When a charset is specified as a range in UTF-2000,
don't support builtin characters.
---

diff --git a/src/chartab.c b/src/chartab.c
index ed78ba6..6d01d3e 100644
--- a/src/chartab.c
+++ b/src/chartab.c
@@ -2377,7 +2377,6 @@ put_char_table (Lisp_Char_Table *ct, struct chartab_range *range,
     case CHARTAB_RANGE_CHARSET:
 #ifdef UTF2000
       {
-	Emchar c;
 	Lisp_Object encoding_table = XCHARSET_ENCODING_TABLE (range->charset);
 
 	/* printf ("put-char-table: range = charset: %d\n",
@@ -2385,29 +2384,24 @@ put_char_table (Lisp_Char_Table *ct, struct chartab_range *range,
 	*/
 	if ( CHAR_TABLEP (encoding_table) )
 	  {
-#if 1
 	    char_attribute_table_to_put = ct;
 	    value_to_put = val;
 	    Fmap_char_attribute (Qput_char_table_map_function,
 				 XCHAR_TABLE_NAME (encoding_table),
 				 Qnil);
-#else
-	    for (c = 0; c < 1 << 24; c++)
-	      {
-		if ( INTP (get_char_id_table (XCHAR_TABLE(encoding_table),
-					      c)) )
-		  put_char_id_table_0 (ct, c, val);
-	      }
-#endif
 	  }
+#if 0
 	else
 	  {
+	    Emchar c;
+
 	    for (c = 0; c < 1 << 24; c++)
 	      {
 		if ( charset_code_point (range->charset, c) >= 0 )
 		  put_char_id_table_0 (ct, c, val);
 	      }
 	  }
+#endif
       }
 #else
       if (EQ (range->charset, Vcharset_ascii))