From fef6422e76df3ef574c897c99994ceee3fe902db Mon Sep 17 00:00:00 2001 From: tomo Date: Wed, 20 Nov 2002 07:27:15 +0000 Subject: [PATCH] (charset_code_point): if a coded-charset has a final-byte, don't inherit the builtin range of the mother CCS. --- src/mule-charset.c | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) 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) -- 1.7.10.4