(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 e3a1acdb8f0baf8afb60c47732d81bb509cd44fb..e1d49486a9dd5c1fb10c6f58248f778f2122ee61 100644 (file)
--- 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.