(charset_code_point): Fix problem when searching in mother CCS fails

[chise/xemacs-chise.git] / src / mule-charset.c

diff --git a/src/mule-charset.c b/src/mule-charset.c
index 8c8604e..449e4d7 100644 (file)
--- a/src/mule-charset.c
+++ b/src/mule-charset.c
@@ -1159,6 +1159,8 @@ charset_code_point (Lisp_Object charset, Emchar ch, int defined_only)
              exit (-1);
            }
        }
+      else if (defined_only)
+       return -1;
       else if ( ( XCHARSET_FINAL (charset) >= '0' ) &&
                ( XCHARSET_MIN_CODE (charset) == 0 )
               /*