comparison src/keyboard.c @ 6749:c409eb264509

(kbd_buffer_get_event): Make buffer_switch_event lispy. (record_asynch_buffer_change): New function. Enqueue the event.

6748:b1cde622fa65

	  Fdelete_frame (event->frame_or_window, Qt);
	  kbd_fetch_ptr = event + 1;
	}
#endif
      /* Just discard these, by returning nil.
	 (They shouldn't be found in the buffer,
	 but on some machines it appears they do show up.)  */
      else if (event->kind == no_event)
	kbd_fetch_ptr = event + 1;

  else
#endif
    read_avail_input (expected);
#endif
}

#ifndef VMS

/* Read any terminal input already buffered up by the system
   into the kbd_buffer, but do not wait.

6749:c409eb264509

	  Fdelete_frame (event->frame_or_window, Qt);
	  kbd_fetch_ptr = event + 1;
	}
#endif
      else if (event->kind == buffer_switch_event)
	{
	  /* The value doesn't matter here; only the type is tested.  */
	  XSET (obj, Lisp_Buffer, current_buffer);
	  kbd_fetch_ptr = event + 1;
	}
      /* Just discard these, by returning nil.
	 (They shouldn't be found in the buffer,
	 but on some machines it appears they do show up.)  */
      else if (event->kind == no_event)
	kbd_fetch_ptr = event + 1;

  else
#endif
    read_avail_input (expected);
#endif
}

record_asynch_buffer_change ()
{
  struct input_event event;
  event.kind = buffer_switch_event;
  event.frame_or_window = Qnil;
  kbd_buffer_store_event (&event);
}

#ifndef VMS

/* Read any terminal input already buffered up by the system
   into the kbd_buffer, but do not wait.