X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=src%2Fchar-ucs.h;h=b5160338e686658b19ebc340fb63993bd1ce0956;hb=edb1d7f5d06e1f3ca783853fe435f41eaa32ea8e;hp=f3e433c40cea2f562e9a828517b5d838a1753e04;hpb=24c15222653b2652cf73d26fc454abeffc096c18;p=chise%2Fxemacs-chise.git- diff --git a/src/char-ucs.h b/src/char-ucs.h index f3e433c..b516033 100644 --- a/src/char-ucs.h +++ b/src/char-ucs.h @@ -673,40 +673,13 @@ decoding_table_remove_char (Lisp_Object ccs, int code_point) Emchar load_char_decoding_entry_maybe (Lisp_Object ccs, int code_point); #endif -INLINE_HEADER Emchar -DECODE_DEFINED_CHAR (Lisp_Object charset, int code_point); -INLINE_HEADER Emchar -DECODE_DEFINED_CHAR (Lisp_Object ccs, int code_point) -{ - int dim = XCHARSET_DIMENSION (ccs); - Lisp_Object decoding_table = XCHARSET_DECODING_TABLE (ccs); - - while (dim > 0) - { - dim--; - decoding_table - = get_ccs_octet_table (decoding_table, ccs, - (code_point >> (dim * 8)) & 255); - } - if (CHARP (decoding_table)) - return XCHAR (decoding_table); -#ifdef HAVE_DATABASE - if (EQ (decoding_table, Qunloaded) || - EQ (decoding_table, Qunbound) || - NILP (decoding_table) ) - { - return load_char_decoding_entry_maybe (ccs, code_point); - } -#endif - else - return -1; -} +Emchar decode_defined_char (Lisp_Object charset, int code_point); INLINE_HEADER Emchar DECODE_CHAR (Lisp_Object charset, int code_point); INLINE_HEADER Emchar DECODE_CHAR (Lisp_Object charset, int code_point) { - Emchar char_id = DECODE_DEFINED_CHAR (charset, code_point); + Emchar char_id = decode_defined_char (charset, code_point); if (char_id >= 0) return char_id;