X-Git-Url: http://git.chise.org/gitweb/?p=chise%2Fxemacs-chise.git.1;a=blobdiff_plain;f=src%2Fmule-charset.c;fp=src%2Fmule-charset.c;h=a60e790d0f2dc049732bf156a5128c5b10044475;hp=1c91eb83ada6a9fbc04cf99a5de97ba34b612c53;hb=74d44aa490c9d10be554cb8ec7454eb04684dde2;hpb=4b9d71ee7e411d98b6aa53166c4ca9b9b6a29703

diff --git a/src/mule-charset.c b/src/mule-charset.c
index 1c91eb8..a60e790 100644
--- a/src/mule-charset.c
+++ b/src/mule-charset.c
@@ -1149,9 +1149,12 @@ charset_code_point (Lisp_Object charset, Emchar ch, int accepted_mode)
       Lisp_Object encoding_table = XCHARSET_ENCODING_TABLE (charset);
 
       if ( CHAR_TABLEP (encoding_table)
-	   && INTP (ret = get_char_id_table (XCHAR_TABLE(encoding_table),
-					     ch)) )
-	return XINT (ret);
+	   && !UNBOUNDP (ret = get_char_id_table (XCHAR_TABLE(encoding_table),
+						  ch)) )
+	if ( INTP (ret) )
+	  return XINT (ret);
+	else
+	  return -1;
     }
     {
       Lisp_Object mother = XCHARSET_MOTHER (charset);