(Fmap_char_table): Call map_char_table with correct args.

diff --git a/src/fns.c b/src/fns.c
index ef1bbffe135e9680f0a3b796363545a61d701fd8..74f256eaca49e05ae249e7ff942efe27fe735548 100644 (file)
--- a/src/fns.c
+++ b/src/fns.c
@@ -1377,7 +1377,7 @@ The key is always a possible RANGE argument to `set-char-table-range'.")
   Lisp_Object keyvec;
   Lisp_Object *indices = (Lisp_Object *) alloca (10 * sizeof (Lisp_Object));
 
-  map_char_table (function, NULL, chartable, 0, indices);
+  map_char_table (NULL, function, chartable, 0, indices);
   return Qnil;
 }
 \f