From 635eff143695bf04cde4c9cf6073b2b3cbc44c9a Mon Sep 17 00:00:00 2001 From: tomo Date: Tue, 13 Apr 2004 04:20:42 +0000 Subject: [PATCH] (put_char_ccs_code_point): Store characters of =ucs whose code_points >= 0xF0000. --- src/mule-charset.c | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/src/mule-charset.c b/src/mule-charset.c index 6e7e49f..44fe145 100644 --- a/src/mule-charset.c +++ b/src/mule-charset.c @@ -180,9 +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) - || (XCHAR (character) != XINT (value))) + if ( !(EQ (XCHARSET_NAME (ccs), Qmap_ucs) + && INTP (value) && (XINT (value) < 0xF0000)) + || !INTP (value) + /* || (XCHAR (character) != XINT (value)) */ ) { Lisp_Object v = XCHARSET_DECODING_TABLE (ccs); int code_point; -- 1.7.10.4