(x-create-frame-with-faces):

Specify frame arg to x-color-values and frame-parameters.
(set-face-background): Pass background-p arg to face-color-supported-p.

diff --git a/lisp/faces.el b/lisp/faces.el
index 637170cc457b71023fb197c8e422a7b436f4fe53..04dc3c9a2fb7b43d36cba6ecb820f508e57e3c1d 100644 (file)
--- a/lisp/faces.el
+++ b/lisp/faces.el
@@ -150,7 +150,7 @@ in that frame; otherwise change each frame."
   ;; For a specific frame, use gray stipple instead of gray color
   ;; if the display does not support a gray color.
   (if (and frame (not (eq frame t))
-          (not (face-color-supported-p frame color)))
+          (not (face-color-supported-p frame color t)))
       (set-face-stipple face face-default-stipple frame)
     (if (null frame)
        (let ((frames (frame-list)))
@@ -1065,13 +1065,14 @@ selected frame."
     ;; on this frame.
     (let ((bg-resource (x-get-resource ".backgroundMode"
                                       "BackgroundMode"))
-         (params (frame-parameters))
+         (params (frame-parameters frame))
          (bg-mode))
       (setq bg-mode
            (cond (bg-resource (intern (downcase bg-resource)))
                  ((< (apply '+ (x-color-values
-                                (cdr (assq 'background-color params))))
-                     (/ (apply '+ (x-color-values "white")) 3))
+                                (cdr (assq 'background-color params))
+                                frame))
+                     (/ (apply '+ (x-color-values "white" frame)) 3))
                   'dark)
                  (t 'light)))
       (modify-frame-parameters frame