[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/src/eval.c [emacs-unicode-2]
From: |
Miles Bader |
Subject: |
[Emacs-diffs] Changes to emacs/src/eval.c [emacs-unicode-2] |
Date: |
Mon, 28 Jun 2004 03:56:22 -0400 |
Index: emacs/src/eval.c
diff -c emacs/src/eval.c:1.210.4.1 emacs/src/eval.c:1.210.4.2
*** emacs/src/eval.c:1.210.4.1 Fri Apr 16 12:50:46 2004
--- emacs/src/eval.c Mon Jun 28 07:29:20 2004
***************
*** 617,622 ****
--- 617,623 ----
register Lisp_Object defn;
fn_name = Fcar (args);
+ CHECK_SYMBOL (fn_name);
defn = Fcons (Qlambda, Fcdr (args));
if (!NILP (Vpurify_flag))
defn = Fpurecopy (defn);
***************
*** 1220,1226 ****
The value of the last BODY form is returned from the condition-case.
See also the function `signal' for more info.
! usage: (condition-case VAR BODYFORM HANDLERS...) */)
(args)
Lisp_Object args;
{
--- 1221,1227 ----
The value of the last BODY form is returned from the condition-case.
See also the function `signal' for more info.
! usage: (condition-case VAR BODYFORM &rest HANDLERS) */)
(args)
Lisp_Object args;
{
***************
*** 1235,1244 ****
handlers = Fcdr (Fcdr (args));
CHECK_SYMBOL (var);
! for (val = handlers; ! NILP (val); val = Fcdr (val))
{
Lisp_Object tem;
! tem = Fcar (val);
if (! (NILP (tem)
|| (CONSP (tem)
&& (SYMBOLP (XCAR (tem))
--- 1236,1245 ----
handlers = Fcdr (Fcdr (args));
CHECK_SYMBOL (var);
! for (val = handlers; CONSP (val); val = XCDR (val))
{
Lisp_Object tem;
! tem = XCAR (val);
if (! (NILP (tem)
|| (CONSP (tem)
&& (SYMBOLP (XCAR (tem))
***************
*** 3243,3248 ****
--- 3244,3268 ----
void
+ mark_backtrace ()
+ {
+ register struct backtrace *backlist;
+ register int i;
+
+ for (backlist = backtrace_list; backlist; backlist = backlist->next)
+ {
+ mark_object (*backlist->function);
+
+ if (backlist->nargs == UNEVALLED || backlist->nargs == MANY)
+ i = 0;
+ else
+ i = backlist->nargs - 1;
+ for (; i >= 0; i--)
+ mark_object (backlist->args[i]);
+ }
+ }
+
+ void
syms_of_eval ()
{
DEFVAR_INT ("max-specpdl-size", &max_specpdl_size,
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] Changes to emacs/src/eval.c [emacs-unicode-2],
Miles Bader <=