X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=src%2Fevent-tty.c;h=04376041e7d229c5944ad843f172ac1224373981;hb=41e784bb39d67f3906871511cb30805a71a6d6b3;hp=00dd49ce10837af325a71d1486e833ddcec58a19;hpb=35adcaaeafb1fe93eaf00c39b48619e8f188ff3f;p=chise%2Fxemacs-chise.git.1

diff --git a/src/event-tty.c b/src/event-tty.c
index 00dd49c..0437604 100644
--- a/src/event-tty.c
+++ b/src/event-tty.c
@@ -94,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;
 
@@ -142,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))
@@ -245,7 +245,7 @@ emacs_tty_delete_stream_pair (Lisp_Object instream, Lisp_Object outstream)
 /************************************************************************/
 
 void
-vars_of_event_tty (void)
+reinit_vars_of_event_tty (void)
 {
   tty_event_stream = xnew (struct event_stream);
 
@@ -264,6 +264,12 @@ vars_of_event_tty (void)
 }
 
 void
+vars_of_event_tty (void)
+{
+  reinit_vars_of_event_tty ();
+}
+
+void
 init_event_tty_late (void)
 {
   event_stream = tty_event_stream;