From ee09252aa0d0048033f48bce7e735a739f645a6e Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sun, 23 Oct 1994 06:05:12 +0000 Subject: (set-face-background): Set either stipple or color, never both. Do this only for a specific frame, not for t. --- lisp/faces.el | 9 ++++++--- 1 file changed, 6 insertions(+), 3 deletions(-) (limited to 'lisp/faces.el') diff --git a/lisp/faces.el b/lisp/faces.el index 675e2b5438..666a56c164 100644 --- a/lisp/faces.el +++ b/lisp/faces.el @@ -109,11 +109,14 @@ in that frame; otherwise change each frame." If the optional FRAME argument is provided, change only in that frame; otherwise change each frame." (interactive (internal-face-interactive "background")) - (if (and frame (member color '("gray" "gray1" "gray3")) + ;; 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)) + (member color '("gray" "gray1" "gray3")) (not (x-display-color-p frame)) (not (x-display-grayscale-p frame))) - (set-face-stipple face color frame)) - (internal-set-face-1 face 'background color 5 frame)) + (set-face-stipple face color frame) + (internal-set-face-1 face 'background color 5 frame))) (defsubst set-face-stipple (face name &optional frame) "Change the stipple pixmap of face FACE to PIXMAP. -- cgit v1.2.3