(internal_condition_case): Abort if interrupt_input_blocked>0.

01591d17 · Richard M. Stallman · a1b658dd · 01591d17
Commit 01591d17 authored Apr 10, 1995 by Richard M. Stallman
Hide whitespace changes
Inline Side-by-side

Showing with 5 additions and 0 deletions

src/eval.c src/eval.c +5 -0

No files found.
--- 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;