From 06d4addf4a36608d35f1d86383fb96b942ad7826 Mon Sep 17 00:00:00 2001
From: tomo <tomo>
Date: Thu, 10 Oct 2002 16:55:35 +0000
Subject: [PATCH] (put_char_table): When a charset is specified as a range in
 UTF-2000, don't support builtin characters.

---
 src/chartab.c |   14 ++++----------
 1 file changed, 4 insertions(+), 10 deletions(-)

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))
-- 
1.7.10.4