(face-valid-attribute-values): No stipple on w32. (Bug#884)

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 87f34a679708bd355aedb84a2a947d3367b7b81d..232bc70a57cc72aaf72a0d06ea4c19403d45b434 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2009-01-13  Jason Rumney  <jasonr@gnu.org>
+
+       * faces.el (face-valid-attribute-values): No stipple on w32. (Bug#884)
+
 2009-01-12  Juanma Barranquero  <lekktu@gmail.com>
 
        * subr.el (play-sound): Doc fix.  (Bug#250)

diff --git a/lisp/faces.el b/lisp/faces.el
index d1a716994eb78d5137fb7525a7084f54a194213f..522446add151e30df97acdb7be328fe82b91480a 100644 (file)
--- a/lisp/faces.el
+++ b/lisp/faces.el
@@ -1020,7 +1020,7 @@ an integer value."
            ((:height)
             'integerp)
            (:stipple
-            (and (memq (window-system frame) '(x w32 ns))
+            (and (memq (window-system frame) '(x ns)) ; No stipple on w32
                  (mapcar #'list
                          (apply #'nconc
                                 (mapcar (lambda (dir)