Commit c12a7cbd authored by Karl Heuer's avatar Karl Heuer
Browse files

(x_make_frame_visible): Raise a signal to cause the pending X I/O to be read.

parent c89c189e
...@@ -5668,22 +5668,16 @@ x_make_frame_visible (f) ...@@ -5668,22 +5668,16 @@ x_make_frame_visible (f)
so that incoming events are handled. */ so that incoming events are handled. */
{ {
Lisp_Object frame; Lisp_Object frame;
int one_in_four = 1;
XSET (frame, Lisp_Frame, f); XSET (frame, Lisp_Frame, f);
while (! f->async_visible) while (! f->async_visible)
{ {
x_sync (frame); x_sync (frame);
/* On HPUX on the HP800, the sleep is needed sometimes. */ /* Machines that do polling rather than SIGIO have been observed
if ((one_in_four & 3) == 0) to go into a busy-wait here. Send the alarm signal to let
{ the handler know that there's something to be read. */
QUIT; #ifndef SIGIO
#ifdef EMACS_HAS_USECS kill (getpid(), SIGALRM);
Fsleep_for (make_number (1), make_number (0));
#else
Fsleep_for (make_number (0), make_number (250));
#endif #endif
}
one_in_four++;
} }
FRAME_SAMPLE_VISIBILITY (f); FRAME_SAMPLE_VISIBILITY (f);
} }
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment