summaryrefslogtreecommitdiff
path: root/lisp/faces.el
diff options
context:
space:
mode:
authorRichard M. Stallman <rms@gnu.org>1994-04-14 07:38:15 +0000
committerRichard M. Stallman <rms@gnu.org>1994-04-14 07:38:15 +0000
commitb4e7a5c22a8328dbc0bed3c183123aec489ed6e3 (patch)
tree2fe2eea80a737ca71eb2a6129f1e4cc6e468d734 /lisp/faces.el
parentc611c19085a82f7add120fa306413b4a3043a04b (diff)
downloademacs-b4e7a5c22a8328dbc0bed3c183123aec489ed6e3.tar.gz
(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.el6
1 files changed, 5 insertions, 1 deletions
diff --git a/lisp/faces.el b/lisp/faces.el
index 891a37c24aa..38d81e9eae6 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.