From: tomo <tomo>
Date: Wed, 20 Nov 2002 07:27:15 +0000 (+0000)
Subject: (charset_code_point): if a coded-charset has a final-byte, don't
X-Git-Tag: r21-4-9-utf-2000-0_19-mcsi2~1
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=fef6422e76df3ef574c897c99994ceee3fe902db;p=chise%2Fxemacs-chise.git

(charset_code_point): if a coded-charset has a final-byte, don't
inherit the builtin range of the mother CCS.
---

diff --git a/src/mule-charset.c b/src/mule-charset.c
index 3c68a53..c7651d6 100644
--- a/src/mule-charset.c
+++ b/src/mule-charset.c
@@ -1117,7 +1117,12 @@ charset_code_point (Lisp_Object charset, Emchar ch, int defined_only)
       int code = -1;
 
       if ( CHARSETP (mother) )
-	code = charset_code_point (mother, ch, defined_only);
+	{
+	  if (XCHARSET_FINAL (charset) >= '0')
+	    code = charset_code_point (mother, ch, 1);
+	  else
+	    code = charset_code_point (mother, ch, defined_only);
+	}
       else if (defined_only)
 	return -1;
       else if ( ((max == 0) && CHARSETP (mother)