From: tomo <tomo>
Date: Tue, 13 Apr 2004 04:20:42 +0000 (+0000)
Subject: (put_char_ccs_code_point): Store characters of =ucs whose code_points
X-Git-Tag: r21-4-14-chise-0_21-26^2~32
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=635eff143695bf04cde4c9cf6073b2b3cbc44c9a;p=chise%2Fxemacs-chise.git

(put_char_ccs_code_point): Store characters of =ucs whose code_points
>= 0xF0000.
---

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;