From: Richard M. Stallman <rms@gnu.org>
Date: Sat, 5 Aug 1995 06:33:01 +0000 (+0000)
Subject: (set-face-background): When using face-color-supported-p,
X-Git-Tag: emacs-19.34~3084
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=f1d71b2f75923b697f59f2873f931d68979df8f7;p=emacs.git

(set-face-background): When using face-color-supported-p,
specify foreground, not background.
---

diff --git a/lisp/faces.el b/lisp/faces.el
index 438b148f46d..368d44f8fa0 100644
--- a/lisp/faces.el
+++ b/lisp/faces.el
@@ -150,7 +150,11 @@ in that frame; otherwise change each frame."
   ;; 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)))