# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1006889332 0
# Node ID 6486180ed9ef7f9596955603da79f1afd5aa2e00
# Parent  039473255ff2b13978656b6d537a6b416e3a3db0
(run_hook_list_with_args): Remove.
(LIST_END_P): Fix call to wrong_type_argument.
(make_fixnum_or_float): Use EMACS_INT rather than int.

diff -r 039473255ff2 -r 6486180ed9ef src/lisp.h
--- a/src/lisp.h	Tue Nov 27 19:23:17 2001 +0000
+++ b/src/lisp.h	Tue Nov 27 19:28:52 2001 +0000
@@ -878,7 +878,7 @@
      and set a symbol's value, to take defvaralias into account.  */
   Lisp_Object value;
 
-  /* Function value of the symbol or Qunbound if not fcoundp.  */
+  /* Function value of the symbol or Qunbound if not fboundp.  */
   Lisp_Object function;
 
   /* The symbol's property list.  */
@@ -2451,7 +2451,6 @@
 EXFUN (Frun_hook_with_args, MANY);
 EXFUN (Frun_hook_with_args_until_success, MANY);
 EXFUN (Frun_hook_with_args_until_failure, MANY);
-extern Lisp_Object run_hook_list_with_args P_ ((Lisp_Object, int, Lisp_Object *));
 extern void run_hook_with_args_2 P_ ((Lisp_Object, Lisp_Object, Lisp_Object));
 EXFUN (Fand, UNEVALLED);
 EXFUN (For, UNEVALLED);
@@ -3110,7 +3109,7 @@
    ? 1							\
    : (CONSP (obj)					\
       ? 0						\
-      : (wrong_type_argument (Qlistp, (list), 0)), 1))
+      : (wrong_type_argument (Qlistp, (list))), 1))
 
 #define FOREACH(hare, list, tortoise, n)		\
   for (tortoise = hare = (list), n = 0;			\
@@ -3135,4 +3134,6 @@
    fixnum.  */
 
 #define make_fixnum_or_float(val) \
-   (FIXNUM_OVERFLOW_P (val) ? make_float (val) : make_number ((int)(val)))
+   (FIXNUM_OVERFLOW_P (val) \
+    ? make_float (val) \
+    : make_number ((EMACS_INT)(val)))