(read_char): Clear Vquit_flag when we return C-g for it.

04904c29 · Richard M. Stallman · 9cbfb5e4 · 04904c29
Commit 04904c29 authored Mar 31, 1993 by Richard M. Stallman
Hide whitespace changes
Inline Side-by-side

Showing with 4 additions and 0 deletions

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

No files found.
--- a/src/keyboard.c
+++ b/src/keyboard.c
@@ -1317,6 +1317,10 @@ read_char (commandflag, nmaps, maps, prev_event, used_mouse_menu)
      XSET (internal_last_event_frame, Lisp_Frame, selected_frame);
      Vlast_event_frame = internal_last_event_frame;
 #endif
+      /* If we report the quit char as an event,
+	 don't do so more than once.  */
+      if (!NILP (Vinhibit_quit))
+	Vquit_flag = Qnil;

      goto non_reread;
    }