User: aidan
Date: 06/08/04 22:55:06
Modified: xemacs/src ChangeLog event-tty.c
Log:
Stop TTYs dropping chars when no X11 support built-in.
Revision Changes Path
1.992 +7 -0 XEmacs/xemacs/src/ChangeLog
Index: ChangeLog
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacs/src/ChangeLog,v
retrieving revision 1.991
retrieving revision 1.992
diff -u -p -r1.991 -r1.992
--- ChangeLog 2006/08/04 20:01:12 1.991
+++ ChangeLog 2006/08/04 20:55:02 1.992
@@ -1,5 +1,12 @@
2006-08-04 Aidan Kehoe <kehoea(a)parhasard.net>
+ * event-tty.c (emacs_tty_next_event):
+ Check dispatch_event_queue for pending events, since we add to
+ that in drain_tty_devices(). Fixes dropped key sequences on TTY
+ builds.
+
+2006-08-04 Aidan Kehoe <kehoea(a)parhasard.net>
+
* syntax.c (Fsyntax_table_p):
Make the docstring better reflect the code.
* syntax.c (define_standard_syntax):
1.17 +10 -0 XEmacs/xemacs/src/event-tty.c
Index: event-tty.c
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacs/src/event-tty.c,v
retrieving revision 1.16
retrieving revision 1.17
diff -u -p -r1.16 -r1.17
--- event-tty.c 2004/11/04 23:06:27 1.16
+++ event-tty.c 2006/08/04 20:55:04 1.17
@@ -113,6 +113,16 @@ emacs_tty_next_event (Lisp_Event *emacs_
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;