Mercurial > emacs
changeset 1097:d9efc1c88574
(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 | d79192bacdce |
| children | 79f020f34683 |
| files | src/keyboard.c |
| diffstat | 1 files changed, 6 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- 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))