# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 716254397 0
# Node ID d9efc1c885740ebfa04c7f6bfaca45a5ceb62d33
# Parent  d79192bacdced98c91e318a65cdae9ebde00b9c2
(command_loop_1): Bind inhibit-quit to t when in Fsit_for.

diff -r d79192bacdce -r d9efc1c88574 src/keyboard.c
--- a/src/keyboard.c	Fri Sep 11 23:31:02 1992 +0000
+++ b/src/keyboard.c	Fri Sep 11 23:33:17 1992 +0000
@@ -799,7 +799,13 @@
 
       if (minibuf_level && echo_area_glyphs)
 	{
+	  /* Bind inhibit-quit to t so that C-g gets read in
+	     rather than quitting back to the minibuffer.  */
+	  int count = specpdl_ptr - specpdl;
+	  specbind (Qinhibit_quit, Qt);
 	  Fsit_for (make_number (2), Qnil, Qnil);
+	  unbind_to (count);
+
 	  echo_area_glyphs = 0;
 	  no_direct = 1;
 	  if (!NILP (Vquit_flag))