From ec5d6abc4d5f7cfa0660ca298c96a8d69f902bdc Mon Sep 17 00:00:00 2001
From: tomo <tomo>
Date: Fri, 7 Sep 2001 10:34:49 +0000
Subject: [PATCH] (get_char_table): Use `get_char_id_table' in XEmacs
 UTF-2000.

---
 src/chartab.c |   13 +------------
 1 file changed, 1 insertion(+), 12 deletions(-)

diff --git a/src/chartab.c b/src/chartab.c
index f0543d8..faf6e7d 100644
--- a/src/chartab.c
+++ b/src/chartab.c
@@ -1804,18 +1804,7 @@ Lisp_Object
 get_char_table (Emchar ch, Lisp_Char_Table *ct)
 {
 #ifdef UTF2000
-  Lisp_Object val = get_byte_table (get_byte_table
-				    (get_byte_table
-				     (get_byte_table
-				      (ct->table,
-				       (unsigned char)(ch >> 24)),
-				      (unsigned char) (ch >> 16)),
-				     (unsigned char)  (ch >>  8)),
-				    (unsigned char)    ch);
-  if (UNBOUNDP (val))
-    return ct->default_value;
-  else
-    return val;
+  return get_char_id_table (ct, ch);
 #elif defined(MULE)
   {
     Lisp_Object charset;
-- 
1.7.10.4