diff src/event-tty.c @ 3541:02f6568ceaab

[xemacs-hg @ 2006-08-04 20:55:02 by aidan] Stop TTYs dropping chars when no X11 support built-in.
author aidan
date Fri, 04 Aug 2006 20:55:04 +0000
parents ecf1ebac70d8
children 0c544f2f566c
line wrap: on
line diff
--- a/src/event-tty.c	Fri Aug 04 20:01:14 2006 +0000
+++ b/src/event-tty.c	Fri Aug 04 20:55:04 2006 +0000
@@ -113,6 +113,16 @@
       EMACS_TIME time_to_block;
       EMACS_SELECT_TIME select_time_to_block, *pointer_to_this;
 
+      if (!NILP (dispatch_event_queue))
+	{
+	  Lisp_Object event, event2;
+	  event2 = wrap_event (emacs_event);
+	  event = dequeue_dispatch_event ();
+	  Fcopy_event (event, event2);
+	  Fdeallocate_event (event);
+	  return;
+	}
+
       if (!get_low_level_timeout_interval (tty_timer_queue, &time_to_block))
 	/* no timer events; block indefinitely */
  	pointer_to_this = 0;