From 21dc534dfe2b2bd103b3d7d19906562936ce6e79 Mon Sep 17 00:00:00 2001 From: tomo Date: Mon, 3 Sep 2001 13:09:39 +0000 Subject: [PATCH] (charset_code_point): Use `CHAR_TABLEP' instead of `CHAR_ID_TABLE_P'. (encode_char_1): Likewise. --- src/char-ucs.h | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/char-ucs.h b/src/char-ucs.h index 084a211..e3c6763 100644 --- a/src/char-ucs.h +++ b/src/char-ucs.h @@ -586,7 +586,7 @@ charset_code_point (Lisp_Object charset, Emchar ch) Lisp_Object encoding_table = XCHARSET_ENCODING_TABLE (charset); Lisp_Object ret; - if ( CHAR_ID_TABLE_P (encoding_table) + if ( CHAR_TABLEP (encoding_table) && INTP (ret = get_char_id_table (XCHAR_TABLE(encoding_table), ch)) ) return XINT (ret); @@ -611,7 +611,7 @@ encode_char_1 (Emchar ch, Lisp_Object* charset) Lisp_Object encoding_table = XCHARSET_ENCODING_TABLE (*charset); Lisp_Object ret; - if ( CHAR_ID_TABLE_P (encoding_table) + if ( CHAR_TABLEP (encoding_table) && INTP (ret = get_char_id_table (XCHAR_TABLE(encoding_table), ch)) ) -- 1.7.10.4