1
0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-18 10:16:51 +00:00

(make_frame_visible): At end, wait till Emacs sees frame is visible.

This commit is contained in:
Richard M. Stallman 1994-06-18 18:57:39 +00:00
parent 2a06556614
commit 0dacf79125

View File

@ -5567,6 +5567,17 @@ x_make_frame_visible (f)
XFlushQueue ();
UNBLOCK_INPUT;
/* Synchronize to ensure Emacs knows the frame is visible
before we do anything else. We do this loop with input not blocked
so that incoming events are handled. */
{
Lisp_Object frame;
XSET (frame, Lisp_Frame, f);
while (! f->async_visible)
x_sync (frame);
FRAME_SAMPLE_VISIBILITY (f);
}
}
/* Change from mapped state to withdrawn state. */