Mercurial > emacs

comparison src/keyboard.c @ 1097:d9efc1c88574

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(command_loop_1): Bind inhibit-quit to t when in Fsit_for.
author Richard M. Stallman <rms@gnu.org>
date Fri, 11 Sep 1992 23:33:17 +0000
parents cbbbe0a96ecc
children f3a7122a68e1
comparison
equal deleted inserted replaced
1096:d79192bacdce 1097:d9efc1c88574
797 /* If minibuffer on and echo area in use, 797 /* If minibuffer on and echo area in use,
798 wait 2 sec and redraw minibufer. */ 798 wait 2 sec and redraw minibufer. */
799 799
800 if (minibuf_level && echo_area_glyphs) 800 if (minibuf_level && echo_area_glyphs)
801 { 801 {
802 /* Bind inhibit-quit to t so that C-g gets read in
803 rather than quitting back to the minibuffer. */
804 int count = specpdl_ptr - specpdl;
805 specbind (Qinhibit_quit, Qt);
802 Fsit_for (make_number (2), Qnil, Qnil); 806 Fsit_for (make_number (2), Qnil, Qnil);
807 unbind_to (count);
808
803 echo_area_glyphs = 0; 809 echo_area_glyphs = 0;
804 no_direct = 1; 810 no_direct = 1;
805 if (!NILP (Vquit_flag)) 811 if (!NILP (Vquit_flag))
806 { 812 {
807 Vquit_flag = Qnil; 813 Vquit_flag = Qnil;