From 537dfe8c0d01cb651a9dd679c98a95b160f9274e Mon Sep 17 00:00:00 2001 From: tomo Date: Fri, 31 Aug 2001 05:46:55 +0000 Subject: [PATCH] (get_char_id_table): Change interface. (charset_code_point): Modify for interface change of `get_char_id_table'. (encode_char_1): Likewise. --- src/char-ucs.h | 9 ++++++--- 1 file changed, 6 insertions(+), 3 deletions(-) diff --git a/src/char-ucs.h b/src/char-ucs.h index 7c60319..35038ad 100644 --- a/src/char-ucs.h +++ b/src/char-ucs.h @@ -100,7 +100,7 @@ DECLARE_LRECORD (char_id_table, Lisp_Char_ID_Table); char table entries should never escape to Lisp */ -Lisp_Object get_char_id_table (Emchar ch, Lisp_Object table); +Lisp_Object get_char_id_table (Lisp_Char_ID_Table* cit, Emchar ch); extern Lisp_Object Vcharset_mojikyo; @@ -663,7 +663,8 @@ charset_code_point (Lisp_Object charset, Emchar ch) Lisp_Object ret; if ( CHAR_ID_TABLE_P (encoding_table) - && INTP (ret = get_char_id_table (ch, encoding_table)) ) + && INTP (ret = get_char_id_table (XCHAR_ID_TABLE(encoding_table), + ch)) ) return XINT (ret); else return range_charset_code_point (charset, ch); @@ -687,7 +688,9 @@ encode_char_1 (Emchar ch, Lisp_Object* charset) Lisp_Object ret; if ( CHAR_ID_TABLE_P (encoding_table) - && INTP (ret = get_char_id_table (ch, encoding_table)) ) + && INTP (ret + = get_char_id_table (XCHAR_ID_TABLE(encoding_table), + ch)) ) return XINT (ret); else { -- 1.7.10.4