[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/src/eval.c
From: |
Stefan Monnier |
Subject: |
[Emacs-diffs] Changes to emacs/src/eval.c |
Date: |
Fri, 16 Nov 2001 06:43:41 -0500 |
Index: emacs/src/eval.c
diff -u emacs/src/eval.c:1.174 emacs/src/eval.c:1.175
--- emacs/src/eval.c:1.174 Tue Nov 13 19:07:34 2001
+++ emacs/src/eval.c Fri Nov 16 06:43:41 2001
@@ -120,7 +120,7 @@
/* Maximum size allowed for specpdl allocation */
-int max_specpdl_size;
+EMACS_INT max_specpdl_size;
/* Depth in Lisp evaluations and function calls. */
@@ -128,7 +128,7 @@
/* Maximum allowed depth in Lisp evaluations and function calls. */
-int max_lisp_eval_depth;
+EMACS_INT max_lisp_eval_depth;
/* Nonzero means enter debugger before next function call */
@@ -190,13 +190,10 @@
int handling_signal;
-void specbind (), record_unwind_protect ();
+static Lisp_Object funcall_lambda P_ ((Lisp_Object, int, Lisp_Object*));
+/* Apply a mocklisp function to unevaluated argument list. */
+extern Lisp_Object ml_apply P_ ((Lisp_Object, Lisp_Object));
-Lisp_Object run_hook_with_args ();
-
-Lisp_Object funcall_lambda ();
-extern Lisp_Object ml_apply (); /* Apply a mocklisp function to unevaluated
argument list */
-
void
init_eval_once ()
{
@@ -1404,7 +1401,9 @@
}
-static Lisp_Object find_handler_clause ();
+static Lisp_Object find_handler_clause P_ ((Lisp_Object, Lisp_Object,
+ Lisp_Object, Lisp_Object,
+ Lisp_Object *));
DEFUN ("signal", Fsignal, Ssignal, 2, 2, 0,
doc: /* Signal an error. Args are ERROR-SYMBOL and associated DATA.
@@ -2224,6 +2223,8 @@
/* Run hook variables in various ways. */
enum run_hooks_condition {to_completion, until_success, until_failure};
+static Lisp_Object run_hook_with_args P_ ((int, Lisp_Object *,
+ enum run_hooks_condition));
DEFUN ("run-hooks", Frun_hooks, Srun_hooks, 0, MANY, 0,
doc: /* Run each hook in HOOKS. Major mode functions use this.
@@ -2321,7 +2322,7 @@
The caller (or its caller, etc) must gcpro all of ARGS,
except that it isn't necessary to gcpro ARGS[0]. */
-Lisp_Object
+static Lisp_Object
run_hook_with_args (nargs, args, cond)
int nargs;
Lisp_Object *args;
@@ -2834,7 +2835,7 @@
and return the result of evaluation.
FUN must be either a lambda-expression or a compiled-code object. */
-Lisp_Object
+static Lisp_Object
funcall_lambda (fun, nargs, arg_vector)
Lisp_Object fun;
int nargs;