From: Richard M. Stallman <rms@gnu.org>
Date: Mon, 17 Oct 1994 07:25:44 +0000 (+0000)
Subject: (intern_face): Update mask properly to set stipple
X-Git-Tag: emacs-19.34~6288
X-Git-Url: https://code.delx.au/gnu-emacs/commitdiff_plain/95887807517a3bb4bbdeb1a52f336e45c219ee01

(intern_face): Update mask properly to set stipple
and fill_style.  Set everything all at once in XCreateGC.
---

diff --git a/src/xfaces.c b/src/xfaces.c
index e1240de30a..3400be7133 100644
--- a/src/xfaces.c
+++ b/src/xfaces.c
@@ -240,14 +240,15 @@ intern_face (f, face)
 
   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;