From: tomo Date: Tue, 15 Jan 2002 18:05:58 +0000 (+0000) Subject: (put_char_ccs_code_point): Modify for `decoding_table_remove_char' and X-Git-Tag: r21-2-44-utf-2000-0_18-n4b~1 X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=5eb92d9a9b515fa9973a6e3e6b11efdd070ab3e0;p=chise%2Fxemacs-chise.git (put_char_ccs_code_point): Modify for `decoding_table_remove_char' and `decoding_table_put_char'. (remove_char_ccs): Modify for `decoding_table_remove_char'. --- diff --git a/src/mule-charset.c b/src/mule-charset.c index 51dbaaf..ce536d0 100644 --- a/src/mule-charset.c +++ b/src/mule-charset.c @@ -226,9 +226,7 @@ put_char_ccs_code_point (Lisp_Object character, || (XCHAR (character) != XINT (value))) { Lisp_Object v = XCHARSET_DECODING_TABLE (ccs); - int dim = XCHARSET_DIMENSION (ccs); int ccs_len = XCHARSET_BYTE_SIZE (ccs); - int byte_offset = XCHARSET_BYTE_OFFSET (ccs); int code_point; if (CONSP (value)) @@ -278,7 +276,7 @@ put_char_ccs_code_point (Lisp_Object character, Lisp_Object cpos = Fget_char_attribute (character, ccs, Qnil); if (INTP (cpos)) { - decoding_table_remove_char (v, dim, byte_offset, XINT (cpos)); + decoding_table_remove_char (ccs, XINT (cpos)); } } else @@ -287,7 +285,7 @@ put_char_ccs_code_point (Lisp_Object character, = v = make_vector (ccs_len, Qnil); } - decoding_table_put_char (v, dim, byte_offset, code_point, character); + decoding_table_put_char (ccs, code_point, character); } return value; } @@ -304,10 +302,7 @@ remove_char_ccs (Lisp_Object character, Lisp_Object ccs) if (!NILP (cpos)) { - decoding_table_remove_char (decoding_table, - XCHARSET_DIMENSION (ccs), - XCHARSET_BYTE_OFFSET (ccs), - XINT (cpos)); + decoding_table_remove_char (ccs, XINT (cpos)); } } if (CHAR_TABLEP (encoding_table))