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

set up the faces, then make it visible.
This commit is contained in:
Richard M. Stallman 1994-04-14 07:38:15 +00:00
parent 673fea7abd
commit e69e8fad9b

View file

@ -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.