From: tomo <tomo>
Date: Fri, 7 Sep 2001 10:34:49 +0000 (+0000)
Subject: (get_char_table): Use `get_char_id_table' in XEmacs UTF-2000.
X-Git-Tag: r21-2-41-utf-2000-0_18-1~524
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=ec5d6abc4d5f7cfa0660ca298c96a8d69f902bdc;p=chise%2Fxemacs-chise.git-

(get_char_table): Use `get_char_id_table' in XEmacs UTF-2000.
---

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;