From: Eli Zaretskii <eliz@gnu.org>
Date: Fri, 1 Mar 2019 10:19:03 +0000 (+0200)
Subject: Don't signal Quit from 'while-no-input' on TTY frames
X-Git-Tag: emacs-27.0.90~3517
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=ed087faa9b1f042e0c47c712e737ef75e90c4f8d;p=emacs.git

Don't signal Quit from 'while-no-input' on TTY frames

* src/keyboard.c (read_char): Don't inject quit-char after
longjmp if while-no-input is in effect.  (Bug#34535)
---

diff --git a/src/keyboard.c b/src/keyboard.c
index 3af487cf070..c2d8b860e4e 100644
--- a/src/keyboard.c
+++ b/src/keyboard.c
@@ -2551,7 +2551,10 @@ read_char (int commandflag, Lisp_Object map,
       restore_getcjmp (save_jump);
       pthread_sigmask (SIG_SETMASK, &empty_mask, 0);
       unbind_to (jmpcount, Qnil);
-      XSETINT (c, quit_char);
+      /* If we are in while-no-input, don't trigger C-g, as that will
+	 quit instead of letting while-no-input do its thing.  */
+      if (!EQ (Vquit_flag, Vthrow_on_input))
+	XSETINT (c, quit_char);
       internal_last_event_frame = selected_frame;
       Vlast_event_frame = internal_last_event_frame;
       /* If we report the quit char as an event,