From: Richard M. Stallman <rms@gnu.org>
Date: Mon, 10 Apr 1995 23:06:13 +0000 (+0000)
Subject: (internal_condition_case): Abort if interrupt_input_blocked>0.
X-Git-Tag: emacs-19.34~4493
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=01591d175e7a6b1a1227b3676a6f195f42368869;p=emacs.git

(internal_condition_case): Abort if interrupt_input_blocked>0.
---

diff --git a/src/eval.c b/src/eval.c
index eb90dbd131a..29136940c4e 100644
--- a/src/eval.c
+++ b/src/eval.c
@@ -1086,6 +1086,11 @@ internal_condition_case (bfun, handlers, hfun)
   struct catchtag c;
   struct handler h;
 
+  /* Since Fsignal resets this to 0, it had better be 0 now
+     or else we have a potential bug.  */
+  if (interrupt_input_blocked != 0)
+    abort ();
+
   c.tag = Qnil;
   c.val = Qnil;
   c.backlist = backtrace_list;