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'.") ...@@ -183,11 +183,18 @@ These supersede the values given in `default-frame-alist'.")
'(minibuffer . t))) '(minibuffer . t)))
t)) t))
;; Create the new frame. ;; 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 default-frame-alist
(frame-parameters frame-initial-frame) (frame-parameters frame-initial-frame)
nil)) nil))
new)
;; Get rid of `reverse', because that was handled ;; Get rid of `reverse', because that was handled
;; when we first made the frame. ;; when we first made the frame.
(setq parms (cons '(reverse) (delq (assq 'reverse parms) parms))) (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