From f1d71b2f75923b697f59f2873f931d68979df8f7 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sat, 5 Aug 1995 06:33:01 +0000 Subject: [PATCH] (set-face-background): When using face-color-supported-p, specify foreground, not background. --- lisp/faces.el | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) 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))) -- 2.39.2