# HG changeset patch
# User Andrew Innes <andrewi@gnu.org>
# Date 930858535 0
# Node ID 600578f350041a707302797b482a20e5d9b7e191
# Parent  dcad7c5b7add02a730a74beede01c7d6531f01eb
(drain_message_queue): New function.

diff -r dcad7c5b7add -r 600578f35004 src/w32xfns.c
--- a/src/w32xfns.c	Thu Jul 01 19:48:19 1999 +0000
+++ b/src/w32xfns.c	Thu Jul 01 19:48:55 1999 +0000
@@ -239,6 +239,19 @@
   return (TRUE);
 }
 
+/* Process all messages in the current thread's queue.  */
+void
+drain_message_queue ()
+{
+  MSG msg;
+  while (PeekMessage (&msg, NULL, 0, 0, PM_REMOVE))
+    {
+      TranslateMessage (&msg);
+      DispatchMessage (&msg);
+    }
+}
+
+
 /*
  *    XParseGeometry parses strings of the form
  *   "=<width>x<height>{+-}<xoffset>{+-}<yoffset>", where