From: Richard M. Stallman <rms@gnu.org>
Date: Wed, 2 Mar 1994 03:44:58 +0000 (+0000)
Subject: (struct handler): New field chosen_clause.
X-Git-Tag: emacs-19.34~9721
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=22bbbd42aaf68793c71269ec5efc9fff072c757d;p=emacs.git

(struct handler): New field chosen_clause.
(memory_signal_data): Declare it.
---

diff --git a/src/lisp.h b/src/lisp.h
index 6d3e6681f0e..934f499ad11 100644
--- a/src/lisp.h
+++ b/src/lisp.h
@@ -905,6 +905,9 @@ struct handler
     /* The handler clauses and variable from the condition-case form.  */
     Lisp_Object handler;
     Lisp_Object var;
+    /* Fsignal stores here the condition-case clause that applies,
+       and Fcondition_case thus knows which clause to run.  */
+    Lisp_Object chosen_clause;
 
     /* Used to effect the longjump out to the handler.  */
     struct catchtag *tag;
@@ -918,6 +921,8 @@ extern struct handler *handlerlist;
 extern struct catchtag *catchlist;
 extern struct backtrace *backtrace_list;
 
+extern Lisp_Object memory_signal_data;
+
 /* An address near the bottom of the stack.
    Tells GC how to save a copy of the stack.  */
 extern char *stack_bottom;