(command_loop_1): Bind inhibit-quit to t when in Fsit_for.

f1bed6d8 · Richard M. Stallman · 95be70ed · f1bed6d8
Commit f1bed6d8 authored Sep 11, 1992 by Richard M. Stallman
Hide whitespace changes
Inline Side-by-side

Showing with 6 additions and 0 deletions

src/keyboard.c src/keyboard.c +6 -0

No files found.
--- a/src/keyboard.c
+++ b/src/keyboard.c
@@ -799,7 +799,13 @@ command_loop_1 ()

      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))