Comments.

[bpt/emacs.git] / src / fns.c

diff --git a/src/fns.c b/src/fns.c
index d693aad..3774aeb 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;
 }
 
@@ -3269,7 +3269,7 @@ The normal messages at start and end of loading FILENAME are suppressed.  */)
            nesting++;
          tem = XCDR (tem);
        }
-      if (nesting > 2)
+      if (nesting > 3)
        error ("Recursive `require' for feature `%s'",
               SDATA (SYMBOL_NAME (feature)));