(set-face-background): Handle FRAME = nil directly

so stipple colors work in that case.

1 files changed, 8 insertions, 1 deletions

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.