(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 (file)
--- 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)