From d0672e0d73b87c39e8671265e9d0533b5434bbe1 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sun, 16 Apr 1995 04:09:48 +0000 Subject: [PATCH] (set-face-background): Handle FRAME = nil directly so stipple colors work in that case. --- lisp/faces.el | 9 ++++++++- 1 file changed, 8 insertions(+), 1 deletion(-) diff --git a/lisp/faces.el b/lisp/faces.el index e3a1acdb8f0..e1d49486a9d 100644 --- a/lisp/faces.el +++ b/lisp/faces.el @@ -137,7 +137,14 @@ in that frame; otherwise change each frame." (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))) + (if (null frame) + (let ((frames (frame-list))) + (while frames + (set-face-background (face-name face) color (car frames)) + (setq frames (cdr frames))) + (set-face-background face color t) + color) + (internal-set-face-1 face 'background color 5 frame)))) (defun set-face-stipple (face name &optional frame) "Change the stipple pixmap of face FACE to PIXMAP. -- 2.39.5