X-Git-Url: https://code.delx.au/gnu-emacs/blobdiff_plain/b74091648421da5ccc517cb3f404e3b9026d29a3..03da5d089a8ed035cec443a27259e7d21487a22e:/src/lisp.h

diff --git a/src/lisp.h b/src/lisp.h
index 65dd4cbcea..3133ef23da 100644
--- a/src/lisp.h
+++ b/src/lisp.h
@@ -1813,7 +1813,7 @@ extern int interrupt_input_pending;
         Lisp_Object flag = Vquit_flag;			\
 	Vquit_flag = Qnil;				\
 	if (EQ (Vthrow_on_input, flag))			\
-	  Fthrow (Vthrow_on_input, Qnil);		\
+	  Fthrow (Vthrow_on_input, Qt);			\
 	Fsignal (Qquit, Qnil);				\
       }							\
   } while (0)