Index: tset/Xlib12/evntsqd/evntsqd.m
===================================================================
RCS file: /cvs/xtest/xts5/tset/Xlib12/evntsqd/evntsqd.m,v
retrieving revision 1.1.1.2
diff -u -r1.1.1.2 evntsqd.m
--- tset/Xlib12/evntsqd/evntsqd.m	15 Apr 2005 14:05:18 -0000	1.1.1.2
+++ tset/Xlib12/evntsqd/evntsqd.m	8 Sep 2005 03:30:05 -0000
@@ -329,6 +329,14 @@
 		CHECK;
 /* Discard all events on the event queue. */
 	XSync(display, True);
+/* Check whether this Xlib auto-flushes. */
+	XNoOp(display);
+	if (!XTestDiscard(display))
+	{
+		report("Flushing appears to happen automatically");
+		UNTESTED;
+		return;
+	}
 /* Create pixmap. */
 	/* avoid using makepixm() */
 	pm = XCreatePixmap(display, DRW(display), 10, 10, 1);