878 |
and set a symbol's value, to take defvaralias into account. */ |
and set a symbol's value, to take defvaralias into account. */ |
879 |
Lisp_Object value; |
Lisp_Object value; |
880 |
|
|
881 |
/* Function value of the symbol or Qunbound if not fcoundp. */ |
/* Function value of the symbol or Qunbound if not fboundp. */ |
882 |
Lisp_Object function; |
Lisp_Object function; |
883 |
|
|
884 |
/* The symbol's property list. */ |
/* The symbol's property list. */ |
2451 |
EXFUN (Frun_hook_with_args, MANY); |
EXFUN (Frun_hook_with_args, MANY); |
2452 |
EXFUN (Frun_hook_with_args_until_success, MANY); |
EXFUN (Frun_hook_with_args_until_success, MANY); |
2453 |
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 *)); |
|
2454 |
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)); |
2455 |
EXFUN (Fand, UNEVALLED); |
EXFUN (Fand, UNEVALLED); |
2456 |
EXFUN (For, UNEVALLED); |
EXFUN (For, UNEVALLED); |
3109 |
? 1 \ |
? 1 \ |
3110 |
: (CONSP (obj) \ |
: (CONSP (obj) \ |
3111 |
? 0 \ |
? 0 \ |
3112 |
: (wrong_type_argument (Qlistp, (list), 0)), 1)) |
: (wrong_type_argument (Qlistp, (list))), 1)) |
3113 |
|
|
3114 |
#define FOREACH(hare, list, tortoise, n) \ |
#define FOREACH(hare, list, tortoise, n) \ |
3115 |
for (tortoise = hare = (list), n = 0; \ |
for (tortoise = hare = (list), n = 0; \ |
3134 |
fixnum. */ |
fixnum. */ |
3135 |
|
|
3136 |
#define make_fixnum_or_float(val) \ |
#define make_fixnum_or_float(val) \ |
3137 |
(FIXNUM_OVERFLOW_P (val) ? make_float (val) : make_number ((int)(val))) |
(FIXNUM_OVERFLOW_P (val) \ |
3138 |
|
? make_float (val) \ |
3139 |
|
: make_number ((EMACS_INT)(val))) |