# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 766309095 0
# Node ID 54d45937d2435842a5757efa291b87498604ea3c
# Parent  4b783d429e6e00bf0b363aba87ecefdf57c2ff60
(x-create-frame-with-faces): Create frame invisible,
set up the faces, then make it visible.

diff -r 4b783d429e6e -r 54d45937d243 lisp/faces.el
--- a/lisp/faces.el	Thu Apr 14 04:46:12 1994 +0000
+++ b/lisp/faces.el	Thu Apr 14 07:38:15 1994 +0000
@@ -793,7 +793,8 @@
 (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 @@
 	  (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.