Commit d28981c9 authored by Stefan Monnier's avatar Stefan Monnier
Browse files

(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.
parent 9fabb2f5
...@@ -878,7 +878,7 @@ struct Lisp_Symbol ...@@ -878,7 +878,7 @@ struct Lisp_Symbol
and set a symbol's value, to take defvaralias into account. */ and set a symbol's value, to take defvaralias into account. */
Lisp_Object value; 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; Lisp_Object function;
/* The symbol's property list. */ /* The symbol's property list. */
...@@ -2451,7 +2451,6 @@ EXFUN (Frun_hooks, MANY); ...@@ -2451,7 +2451,6 @@ EXFUN (Frun_hooks, MANY);
EXFUN (Frun_hook_with_args, MANY); EXFUN (Frun_hook_with_args, MANY);
EXFUN (Frun_hook_with_args_until_success, MANY); EXFUN (Frun_hook_with_args_until_success, MANY);
EXFUN (Frun_hook_with_args_until_failure, 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)); extern void run_hook_with_args_2 P_ ((Lisp_Object, Lisp_Object, Lisp_Object));
EXFUN (Fand, UNEVALLED); EXFUN (Fand, UNEVALLED);
EXFUN (For, UNEVALLED); EXFUN (For, UNEVALLED);
...@@ -3110,7 +3109,7 @@ extern Lisp_Object Vdirectory_sep_char; ...@@ -3110,7 +3109,7 @@ extern Lisp_Object Vdirectory_sep_char;
? 1 \ ? 1 \
: (CONSP (obj) \ : (CONSP (obj) \
? 0 \ ? 0 \
: (wrong_type_argument (Qlistp, (list), 0)), 1)) : (wrong_type_argument (Qlistp, (list))), 1))
#define FOREACH(hare, list, tortoise, n) \ #define FOREACH(hare, list, tortoise, n) \
for (tortoise = hare = (list), n = 0; \ for (tortoise = hare = (list), n = 0; \
...@@ -3135,4 +3134,6 @@ extern Lisp_Object Vdirectory_sep_char; ...@@ -3135,4 +3134,6 @@ extern Lisp_Object Vdirectory_sep_char;
fixnum. */ fixnum. */
#define make_fixnum_or_float(val) \ #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)))
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment