diff options
author | Richard M. Stallman <[email protected]> | 1994-04-14 07:38:15 +0000 |
---|---|---|
committer | Richard M. Stallman <[email protected]> | 1994-04-14 07:38:15 +0000 |
commit | e69e8fad9b51b2e5f071127c20ee3bb3dc73b0f6 (patch) | |
tree | 9ae673d560a782f533d7f2901f25a7dfc98f55cf /lisp/faces.el | |
parent | 673fea7abd63c35cd3292e0ee3e3107ae19b757e (diff) |
(x-create-frame-with-faces): Create frame invisible,
set up the faces, then make it visible.
Diffstat (limited to 'lisp/faces.el')
-rw-r--r-- | lisp/faces.el | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/lisp/faces.el b/lisp/faces.el index 891a37c24a..38d81e9eae 100644 --- 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. |