# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1123589429 0
# Node ID ac757cf8a328e4b7d185bca113fad3707f78b1ef
# Parent  c73bec99da0baad6366e9bf460dcb3e0167d1796
(QUIT): Throw t to Vthrow_on_input.

diff -r c73bec99da0b -r ac757cf8a328 src/lisp.h
--- a/src/lisp.h	Tue Aug 09 12:09:36 2005 +0000
+++ b/src/lisp.h	Tue Aug 09 12:10:29 2005 +0000
@@ -1797,7 +1797,7 @@
         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);				\
       }							\
     else if (interrupt_input_pending)			\