Mercurial > emacs
changeset 6871:54d45937d243
(x-create-frame-with-faces): Create frame invisible,
set up the faces, then make it visible.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Thu, 14 Apr 1994 07:38:15 +0000 |
| parents | 4b783d429e6e |
| children | 7c12310c8b86 |
| files | lisp/faces.el |
| diffstat | 1 files changed, 5 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- 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.