Avoid nested message loop on Windows, potentially causing a crash by

cleaning up data structures still in use.


git-svn-id: https://svn.r-project.org/R/trunk@88371 00db46b3-68df-0310-9c12-caf00c1e9a41

Author: kalibera

src/library/grDevices/src/devWindows.c

@@ -685,7 +685,8 @@ static void SetFont(pGEcontext gc, double rot, gadesc *xd)
     if (size != xd->fontsize || face != xd->fontface ||
 	 rot != xd->fontangle || strcmp(gc->fontfamily, xd->fontfamily)) {
 	if(xd->font) del(xd->font);
-	doevent();
+	/* do not call doevent(); here, as it could cause destruction
+	   of the device specific information and a crash below */
 	/*
 	 * If specify family = "", get family from face via Rdevga
 	 *