Commit b65e2f74 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

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

visible before using its parameters.
parent 510328f2
......@@ -183,11 +183,18 @@ These supersede the values given in `default-frame-alist'.")
'(minibuffer . 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
(frame-parameters frame-initial-frame)
;; Get rid of `reverse', because that was handled
;; when we first made the frame.
(setq parms (cons '(reverse) (delq (assq 'reverse parms) parms)))
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment