From: tomo <tomo>
Date: Sat, 31 Jul 2004 09:43:25 +0000 (+0000)
Subject: (decode_builtin_char): Use <EMACS_INT> instead of <int> for `code'.
X-Git-Tag: r21-4-15-chise-0_21-31^2~143
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=41bbbbf7fa8e916bae98b7ada3f5d39f135abae3;p=chise%2Fxemacs-chise.git

(decode_builtin_char): Use <EMACS_INT> instead of <int> for `code'.
(Fdecode_builtin_char): Use <EMACS_INT> instead of <int> for code
point; use <Emchar> instead of <int> for character-id.
---

diff --git a/src/mule-charset.c b/src/mule-charset.c
index e689e92..bcfe600 100644
--- a/src/mule-charset.c
+++ b/src/mule-charset.c
@@ -970,7 +970,7 @@ decode_builtin_char (Lisp_Object charset, int code_point)
     {
       if ( CHARSETP (mother) )
 	{
-	  int code
+	  EMACS_INT code
 	    = decode_ccs_conversion (XCHARSET_CONVERSION (charset),
 				     code_point);
 
@@ -2563,7 +2563,8 @@ Make a builtin character from CHARSET and code-point CODE.
 */
        (charset, code))
 {
-  int c;
+  EMACS_INT c;
+  Emchar ch;
 
   charset = Fget_charset (charset);
   CHECK_INT (code);
@@ -2597,9 +2598,9 @@ Make a builtin character from CHARSET and code-point CODE.
   if (XCHARSET_GRAPHIC (charset) == 1)
     c &= 0x7F7F7F7F;
 #endif
-  c = decode_builtin_char (charset, c);
+  ch = decode_builtin_char (charset, c);
   return
-    c >= 0 ? make_char (c) : Fdecode_char (charset, code, Qnil, Qnil);
+    ch >= 0 ? make_char (ch) : Fdecode_char (charset, code, Qnil, Qnil);
 }
 #endif