# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 777709721 0
# Node ID 145a583d9128e65b1f91c3cc74e45627c708885b
# Parent  36e9d2326608f4b956b9992b53a16619edda0708
(x_make_frame_visible): Raise a signal to cause the pending X I/O to be read.

diff -r 36e9d2326608 -r 145a583d9128 src/xterm.c
--- a/src/xterm.c	Wed Aug 24 04:50:24 1994 +0000
+++ b/src/xterm.c	Wed Aug 24 06:28:41 1994 +0000
@@ -5668,22 +5668,16 @@
      so that incoming events are handled.  */
   {
     Lisp_Object frame;
-    int one_in_four = 1;
     XSET (frame, Lisp_Frame, f);
     while (! f->async_visible)
       {
 	x_sync (frame);
-	/* On HPUX on the HP800, the sleep is needed sometimes.  */
-	if ((one_in_four & 3) == 0)
-	  {
-	    QUIT;
-#ifdef EMACS_HAS_USECS
-	    Fsleep_for (make_number (1), make_number (0));
-#else
-	    Fsleep_for (make_number (0), make_number (250));
+	/* Machines that do polling rather than SIGIO have been observed
+	   to go into a busy-wait here.  Send the alarm signal to let
+	   the handler know that there's something to be read.  */
+#ifndef SIGIO
+	kill (getpid(), SIGALRM);
 #endif
-	  }
-	one_in_four++;
       }
     FRAME_SAMPLE_VISIBILITY (f);
   }