(x-create-frame-with-faces): Create frame invisible,

set up the faces, then make it visible.

diff --git a/lisp/faces.el b/lisp/faces.el
index 891a37c24aab9f9bf9187d7f36950711b9da5011..38d81e9eae6d967f6a7ad2cca57cb65576084098 100644 (file)
--- a/lisp/faces.el
+++ b/lisp/faces.el
@@ -793,7 +793,8 @@ selected frame."
 (defun x-create-frame-with-faces (&optional parameters)
   (if (null global-face-data)
       (x-create-frame parameters)
-    (let* ((frame (x-create-frame parameters))
+    (let* ((visibility-spec (assq 'visibility parameters))
+          (frame (x-create-frame (cons '(visibility . nil) parameters)))
           (faces (copy-alist global-face-data))
           (rest faces))
       (set-frame-face-alist frame faces)
@@ -823,6 +824,9 @@ selected frame."
          (face-fill-in (car (car rest)) global frame))
        (make-face-x-resource-internal (cdr (car rest)) frame t)
        (setq rest (cdr rest)))
+      (if (null visibility-spec)
+         (make-frame-visible frame)
+       (modify-frame-parameters frame (list visibility-spec)))
       frame)))
 
 ;; Fill in the face FACE from frame-independent face data DATA.