From: Richard M. Stallman <rms@gnu.org>
Date: Sun, 16 Apr 1995 04:09:48 +0000 (+0000)
Subject: (set-face-background): Handle FRAME = nil directly
X-Git-Tag: emacs-19.34~4394
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=d0672e0d73b87c39e8671265e9d0533b5434bbe1;p=emacs.git

(set-face-background): Handle FRAME = nil directly
so stipple colors work in that case.
---

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.