Commit a30f0615 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(record_asynch_buffer_change): Do nothing except when waiting_for_user_input_p.

parent 9ab0f979
......@@ -3419,9 +3419,19 @@ gobble_input (expected)
record_asynch_buffer_change ()
{
struct input_event event;
Lisp_Object tem;
event.kind = buffer_switch_event;
event.frame_or_window = Qnil;
/* We don't need a buffer-switch event unless Emacs is waiting for input.
The purpose of the event is to make read_key_sequence look up the
keymaps again. If we aren't in read_key_sequence, we don't need one,
and the event could cause trouble by messing up (input-pending-p). */
tem = Fwaiting_for_user_input_p ();
if (NILP (tem))
return;
/* Make sure no interrupt happens while storing the event. */
#ifdef SIGIO
if (interrupt_input)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment