From: tomo <tomo>
Date: Fri, 30 Jul 2004 13:58:09 +0000 (+0000)
Subject: (put_char_ccs_code_point): Don't omit a UCS character in the UCS
X-Git-Tag: r21-4-15-chise-0_21-31^2~150
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=a80d1a7517770b6269cf67393a6f269e8ecf9b6c;p=chise%2Fxemacs-chise.git.1

(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.
---

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;