# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 768215826 0
# Node ID cebaa850212d93e5ca8c5f41f94964478da09ebb
# Parent  55588e31b2580761b69c0a1297be36e62d3618bc
(frame-notice-user-settings): Wait till frame becomes
visible before using its parameters.

diff -r 55588e31b258 -r cebaa850212d lisp/frame.el
--- a/lisp/frame.el	Fri May 06 08:30:32 1994 +0000
+++ b/lisp/frame.el	Fri May 06 09:17:06 1994 +0000
@@ -183,11 +183,18 @@
 			      '(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)))