From a80d1a7517770b6269cf67393a6f269e8ecf9b6c Mon Sep 17 00:00:00 2001 From: tomo Date: Fri, 30 Jul 2004 13:58:09 +0000 Subject: [PATCH] (put_char_ccs_code_point): Don't omit a UCS character in the UCS decoding-table if the char-id is not equal to the UCS code point. --- src/mule-charset.c | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/src/mule-charset.c b/src/mule-charset.c index 0958674..e689e92 100644 --- a/src/mule-charset.c +++ b/src/mule-charset.c @@ -180,10 +180,10 @@ Lisp_Object put_char_ccs_code_point (Lisp_Object character, Lisp_Object ccs, Lisp_Object value) { - if ( !(EQ (XCHARSET_NAME (ccs), Qmap_ucs) - && INTP (value) && (XINT (value) < 0xF0000)) - || !INTP (value) - /* || (XCHAR (character) != XINT (value)) */ ) + if ( !( EQ (XCHARSET_NAME (ccs), Qmap_ucs) + && INTP (value) && (XINT (value) < 0xF0000) + && XCHAR (character) == XINT (value) ) + || !INTP (value) ) { Lisp_Object v = XCHARSET_DECODING_TABLE (ccs); int code_point; -- 1.7.10.4