(Fmap_char_table): Cast `call2'.

diff --git a/src/ChangeLog b/src/ChangeLog
index e2da6fbb52fbaca735fd61bc903e34dfdbd14845..f6aa35c565701bf9dac69af04853a2c11e01ea54 100644 (file)
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -22,6 +22,7 @@
        * emacs.c (main) [!VMS]: Avoid third arg.
 
        * fns.c (Fcopy_sequence): Doc fix.
+       (Fmap_char_table): Cast `call2'.
 
 2002-11-14  Francesco Potorti`  <pot@gnu.org>
 

diff --git a/src/fns.c b/src/fns.c
index d693aade503f437bdb312b5004d224a8aff24113..c33df74b464ab8b68914440a2af8184fa07009ae 100644 (file)
--- a/src/fns.c
+++ b/src/fns.c
@@ -1,5 +1,5 @@
 /* Random utility Lisp functions.
-   Copyright (C) 1985, 86, 87, 93, 94, 95, 97, 98, 99, 2000, 2001
+   Copyright (C) 1985, 86, 87, 93, 94, 95, 97, 98, 99, 2000, 2001, 2002
    Free Software Foundation, Inc.
 
 This file is part of GNU Emacs.
@@ -2659,7 +2659,7 @@ The key is always a possible IDX argument to `aref'.  */)
 
   CHECK_CHAR_TABLE (char_table);
 
-  map_char_table (call2, Qnil, char_table, function, 0, indices);
+  map_char_table ((void *) call2, Qnil, char_table, function, 0, indices);
   return Qnil;
 }