Re: unwind-protect within while-no-input

[Stefan Monnier]

> E.g. with a patch like the one below?  Would it fix your case?

Nah, that one can't work.  But maybe the one below?


        Stefan


diff --git a/src/eval.c b/src/eval.c
index 1386ff3e764..38803ad8f5f 100644
--- a/src/eval.c
+++ b/src/eval.c
@@ -1726,7 +1726,10 @@ process_quit_flag (void)
   if (EQ (flag, Qkill_emacs))
     Fkill_emacs (Qnil, Qnil);
   if (EQ (Vthrow_on_input, flag))
-    Fthrow (Vthrow_on_input, Qt);
+    {
+      Vthrow_on_input = Qnil;
+      Fthrow (flag, Qt);
+    }
   if (CONSP (flag)
       && 4 == XFIXNUM (Flength (flag))
       && EQ (XCAR (flag), Vdebug_on_event))