Mercurial > emacs
changeset 41615:6486180ed9ef
(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.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Tue, 27 Nov 2001 19:28:52 +0000 |
| parents | 039473255ff2 |
| children | 8ba7e2fecead |
| files | src/lisp.h |
| diffstat | 1 files changed, 5 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- 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)))