(frame-notice-user-settings): Wait till frame becomes

visible before using its parameters.

diff --git a/lisp/frame.el b/lisp/frame.el
index 872a2f4accee69a74874d9129638acb26f516c3b..a397763e91e532b56e929f7811fe858125c1b20f 100644 (file)
--- a/lisp/frame.el
+++ b/lisp/frame.el
@@ -183,11 +183,18 @@ These supersede the values given in `default-frame-alist'.")
                              '(minibuffer . t)))
                     t))
            ;; Create the new frame.
-           (let* ((parms (append initial-frame-alist
+           (let (parms new)
+             ;; If the frame isn't visible yet, wait till it is.
+             ;; If the user has to position the window,
+             ;; Emacs doesn't know its real position until
+             ;; the frame is seen to be visible.
+             (while (not (cdr (assq 'visibility
+                                    (frame-parameters frame-initial-frame))))
+               (sleep-for 1))
+             (setq parms (append initial-frame-alist
                                  default-frame-alist
                                  (frame-parameters frame-initial-frame)
                                  nil))
-                  new)
              ;; Get rid of `reverse', because that was handled
              ;; when we first made the frame.
              (setq parms (cons '(reverse) (delq (assq 'reverse parms) parms)))