X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;ds=sidebyside;f=src%2Fevent-tty.c;h=0e44cf445ff4e086ba52ef63ba467a0e3db77448;hb=28a3fa29bc0bd9a124b6e3379e82d62e815c22a2;hp=6f027476d1b72d8525486240a538c2d7f33b48db;hpb=6883ee56ec887c2c48abe5b06b5e66aa74031910;p=chise%2Fxemacs-chise.git.1

diff --git a/src/event-tty.c b/src/event-tty.c
index 6f02747..0e44cf4 100644
--- a/src/event-tty.c
+++ b/src/event-tty.c
@@ -71,6 +71,8 @@ tty_timeout_to_emacs_event (struct Lisp_Event *emacs_event)
   emacs_event->timestamp  = 0; /* #### */
   emacs_event->event.timeout.interval_id =
     pop_low_level_timeout (&tty_timer_queue, 0);
+  emacs_event->event.timeout.function = Qnil;
+  emacs_event->event.timeout.object = Qnil;
 }
 
 
@@ -92,8 +94,8 @@ emacs_tty_event_pending_p (int user_p)
 			     non_fake_input_wait_mask);
 }
 
-static struct console *
-find_console_from_fd (int fd)
+struct console *
+tty_find_console_from_fd (int fd)
 {
   Lisp_Object concons;
 
@@ -140,7 +142,7 @@ emacs_tty_next_event (struct Lisp_Event *emacs_event)
 		 user events ahead of process events. */
 	      if (FD_ISSET (i, &temp_mask) && FD_ISSET (i, &tty_only_mask))
 		{
-		  struct console *c = find_console_from_fd (i);
+		  struct console *c = tty_find_console_from_fd (i);
 
 		  assert (c);
 		  if (read_event_from_tty_or_stream_desc (emacs_event, c, i))