X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=src%2Fmule-charset.c;h=a60e790d0f2dc049732bf156a5128c5b10044475;hb=7abc97291af99d50a5b1eabf706af134ca7b83e4;hp=1c91eb83ada6a9fbc04cf99a5de97ba34b612c53;hpb=6bcd7c61e80acf6c9976a2f47c7d0a8c710bb3c7;p=chise%2Fxemacs-chise.git-

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);