Mercurial > hg > xemacs-beta

diff src/redisplay-msw.c @ 286:57709be46d1b r21-0b41

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-0b41
author cvs
date Mon, 13 Aug 2007 10:35:03 +0200
parents 558f606b08ae
children e11d67e05968
line wrap: on
line diff
--- a/src/redisplay-msw.c	Mon Aug 13 10:34:15 2007 +0200
+++ b/src/redisplay-msw.c	Mon Aug 13 10:35:03 2007 +0200
@@ -1335,7 +1335,6 @@
   Lisp_Object background_pixmap = Qunbound;
   Lisp_Object temp;
   RECT rect = { x, y, x+width, y+height };
-  HBRUSH brush;
 
   if (!(width && height))   /* We often seem to get called with width==0 */
     return;
@@ -1396,7 +1395,11 @@
 
       if (XIMAGE_INSTANCE_PIXMAP_DEPTH (background_pixmap) == 0)
 	{
+	  /* is this expensive? - I haven't seen it used as yet. */
+	  HBRUSH brush = CreateSolidBrush 
+	    (COLOR_INSTANCE_MSWINDOWS_COLOR (XCOLOR_INSTANCE (bcolor)));
 	  FillRect (FRAME_MSWINDOWS_DC(f), &rect, brush);
+	  DeleteObject (brush);
 	}
       else
 	{