# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 807604381 0
# Node ID d69a2d6d1ae998355daf95c92d0ce1f68a6e2759
# Parent  a8cd9be430255c04d8c76a0b7c2fb95dd969435a
(set-face-background): When using face-color-supported-p,
specify foreground, not background.

diff -r a8cd9be43025 -r d69a2d6d1ae9 lisp/faces.el
--- a/lisp/faces.el	Sat Aug 05 06:17:38 1995 +0000
+++ b/lisp/faces.el	Sat Aug 05 06:33:01 1995 +0000
@@ -150,7 +150,11 @@
   ;; For a specific frame, use gray stipple instead of gray color
   ;; if the display does not support a gray color.
   (if (and frame (not (eq frame t)) color
-	   (not (face-color-supported-p frame color t)))
+	   ;; Check for supportedness for foreground, not for background!
+	   ;; face-color-supported-p is smart enough to know
+	   ;; that grays are "supported" as background
+	   ;; because we are supposed to use stipple for them!
+	   (not (face-color-supported-p frame color nil)))
       (set-face-stipple face face-default-stipple frame)
     (if (null frame)
 	(let ((frames (frame-list)))