(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 20b4f04065fdb0840b8fd3746972fc31eaf7915a..8fdf7bc92338abb8412c013f40b0802c9bcbd43d 100644 (file)
--- 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);
        }