120 |
|
|
121 |
/* Maximum size allowed for specpdl allocation */ |
/* Maximum size allowed for specpdl allocation */ |
122 |
|
|
123 |
int max_specpdl_size; |
EMACS_INT max_specpdl_size; |
124 |
|
|
125 |
/* Depth in Lisp evaluations and function calls. */ |
/* Depth in Lisp evaluations and function calls. */ |
126 |
|
|
128 |
|
|
129 |
/* Maximum allowed depth in Lisp evaluations and function calls. */ |
/* Maximum allowed depth in Lisp evaluations and function calls. */ |
130 |
|
|
131 |
int max_lisp_eval_depth; |
EMACS_INT max_lisp_eval_depth; |
132 |
|
|
133 |
/* Nonzero means enter debugger before next function call */ |
/* Nonzero means enter debugger before next function call */ |
134 |
|
|
190 |
|
|
191 |
int handling_signal; |
int handling_signal; |
192 |
|
|
193 |
void specbind (), record_unwind_protect (); |
static Lisp_Object funcall_lambda P_ ((Lisp_Object, int, Lisp_Object*)); |
194 |
|
/* Apply a mocklisp function to unevaluated argument list. */ |
195 |
Lisp_Object run_hook_with_args (); |
extern Lisp_Object ml_apply P_ ((Lisp_Object, Lisp_Object)); |
|
|
|
|
Lisp_Object funcall_lambda (); |
|
|
extern Lisp_Object ml_apply (); /* Apply a mocklisp function to unevaluated argument list */ |
|
196 |
|
|
197 |
void |
void |
198 |
init_eval_once () |
init_eval_once () |
1401 |
} |
} |
1402 |
|
|
1403 |
|
|
1404 |
static Lisp_Object find_handler_clause (); |
static Lisp_Object find_handler_clause P_ ((Lisp_Object, Lisp_Object, |
1405 |
|
Lisp_Object, Lisp_Object, |
1406 |
|
Lisp_Object *)); |
1407 |
|
|
1408 |
DEFUN ("signal", Fsignal, Ssignal, 2, 2, 0, |
DEFUN ("signal", Fsignal, Ssignal, 2, 2, 0, |
1409 |
doc: /* Signal an error. Args are ERROR-SYMBOL and associated DATA. |
doc: /* Signal an error. Args are ERROR-SYMBOL and associated DATA. |
2223 |
/* Run hook variables in various ways. */ |
/* Run hook variables in various ways. */ |
2224 |
|
|
2225 |
enum run_hooks_condition {to_completion, until_success, until_failure}; |
enum run_hooks_condition {to_completion, until_success, until_failure}; |
2226 |
|
static Lisp_Object run_hook_with_args P_ ((int, Lisp_Object *, |
2227 |
|
enum run_hooks_condition)); |
2228 |
|
|
2229 |
DEFUN ("run-hooks", Frun_hooks, Srun_hooks, 0, MANY, 0, |
DEFUN ("run-hooks", Frun_hooks, Srun_hooks, 0, MANY, 0, |
2230 |
doc: /* Run each hook in HOOKS. Major mode functions use this. |
doc: /* Run each hook in HOOKS. Major mode functions use this. |
2322 |
The caller (or its caller, etc) must gcpro all of ARGS, |
The caller (or its caller, etc) must gcpro all of ARGS, |
2323 |
except that it isn't necessary to gcpro ARGS[0]. */ |
except that it isn't necessary to gcpro ARGS[0]. */ |
2324 |
|
|
2325 |
Lisp_Object |
static Lisp_Object |
2326 |
run_hook_with_args (nargs, args, cond) |
run_hook_with_args (nargs, args, cond) |
2327 |
int nargs; |
int nargs; |
2328 |
Lisp_Object *args; |
Lisp_Object *args; |
2835 |
and return the result of evaluation. |
and return the result of evaluation. |
2836 |
FUN must be either a lambda-expression or a compiled-code object. */ |
FUN must be either a lambda-expression or a compiled-code object. */ |
2837 |
|
|
2838 |
Lisp_Object |
static Lisp_Object |
2839 |
funcall_lambda (fun, nargs, arg_vector) |
funcall_lambda (fun, nargs, arg_vector) |
2840 |
Lisp_Object fun; |
Lisp_Object fun; |
2841 |
int nargs; |
int nargs; |