From: Dave Love <fx@gnu.org>
Date: Thu, 14 Nov 2002 23:20:30 +0000 (+0000)
Subject: (Fmap_char_table): Cast `call2'.
X-Git-Tag: ttn-vms-21-2-B4~12439
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=49f8f50ab12131b2e209df1c316c8a4e74b73a16;p=emacs.git

(Fmap_char_table): Cast `call2'.
---

diff --git a/src/ChangeLog b/src/ChangeLog
index e2da6fbb52f..f6aa35c5657 100644
--- 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 d693aade503..c33df74b464 100644
--- 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;
 }