Mercurial > emacs

changeset 7357:cebaa850212d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(frame-notice-user-settings): Wait till frame becomes visible before using its parameters.
author Richard M. Stallman <rms@gnu.org>
date Fri, 06 May 1994 09:17:06 +0000
parents 55588e31b258
children 06cc85ac10fb
files lisp/frame.el
diffstat 1 files changed, 9 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- 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)))