From: Kenichi Handa <handa@m17n.org>
Date: Mon, 29 Dec 2003 07:51:57 +0000 (+0000)
Subject: (charset_table_used): Make it static.
X-Git-Tag: emacs-pretest-23.0.90~8295^2~1665
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=5af5dd920e3bcf4213a29ec89f63af0cee104c6c;p=emacs.git

(charset_table_used): Make it static.
(map_charset_chars): Fix args to c_function with.
---

diff --git a/src/charset.c b/src/charset.c
index 20b4f04065f..8fdf7bc9233 100644
--- a/src/charset.c
+++ b/src/charset.c
@@ -63,7 +63,7 @@ Lisp_Object Vcharset_hash_table;
 struct charset *charset_table;
 
 static int charset_table_size;
-int charset_table_used;
+static int charset_table_used;
 
 Lisp_Object Qcharsetp;
 
@@ -583,7 +583,7 @@ map_charset_chars (c_function, function, arg,
 
       range = Fcons (make_number (from_c), make_number (to_c));
       if (NILP (function))
-	(*c_function) (range, arg);
+	(*c_function) (arg, range);
       else
 	call2 (function, range, arg);
     }
@@ -598,7 +598,7 @@ map_charset_chars (c_function, function, arg,
 	    XSETCAR (range, make_number (127));
 
 	  if (NILP (function))
-	    (*c_function) (range, arg);
+	    (*c_function) (arg, range);
 	  else
 	    call2 (function, range, arg);
 	}