# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 798005388 0
# Node ID 4921121fbdc01d34df3a912355015743d8fe5370
# Parent  7a4512fba8bc5a54eff3616fc28db0f06e43f493
(set-face-background): Handle FRAME = nil directly
so stipple colors work in that case.

diff -r 7a4512fba8bc -r 4921121fbdc0 lisp/faces.el
--- a/lisp/faces.el	Sun Apr 16 03:20:40 1995 +0000
+++ b/lisp/faces.el	Sun Apr 16 04:09:48 1995 +0000
@@ -137,7 +137,14 @@
 	   (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.