# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 782378744 0
# Node ID fef2cfcbbe37d58d4b3e43559cc2a4ac5be3dc5c
# Parent  255d98c7cd67100c3a47c671d75c40c72a61d822
(intern_face): Update mask properly to set stipple
and fill_style.  Set everything all at once in XCreateGC.

diff -r 255d98c7cd67 -r fef2cfcbbe37 src/xfaces.c
--- a/src/xfaces.c	Mon Oct 17 07:24:58 1994 +0000
+++ b/src/xfaces.c	Mon Oct 17 07:25:44 1994 +0000
@@ -240,14 +240,15 @@
 
   mask = GCForeground | GCBackground | GCFont | GCGraphicsExposures;
   if (face->stipple && face->stipple != FACE_DEFAULT)
-    xgcv.fill_style = FillStippled;
+    {
+      xgcv.fill_style = FillStippled;
+      xgcv.stipple = x_bitmap_pixmap (f, face->stipple);
+      mask |= GCFillStyle | GCStipple;
+    }
 
   gc = XCreateGC (FRAME_X_DISPLAY (f), FRAME_X_WINDOW (f),
 		  mask, &xgcv);
 
-  if (face->stipple && face->stipple != FACE_DEFAULT)
-    XSetStipple (FRAME_X_DISPLAY (f), gc, x_bitmap_pixmap (f, face->stipple));
-
   face->gc = gc;
 
   UNBLOCK_INPUT;