Skip to content

GitLab

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

(frame-notice-user-settings): Use geometry parms from frame 

when the initial specifications did not have them.
parent 791e09d8
Hide whitespace changes
Inline Side-by-side
Showing with 17 additions and 11 deletions
lisp/frame.el
View file @ c1e67401
......@@ -187,17 +187,23 @@ These supersede the values given in `default-frame-alist'.")
default-frame-alist
(frame-parameters frame-initial-frame)
nil))
;; Get rid of `reverse', because that was handled
;; when we first made the frame.
(new (make-frame
;; Use the geometry args that created the existing
;; frame, rather than the parms we get for it.q
(append frame-initial-geometry-arguments
(let (frame-initial-geometry-arguments)
(frame-remove-geometry-params
(cons '(reverse . nil)
(delq (assq 'reverse parms)
parms))))))))
new)
;; Get rid of `reverse', because that was handled
;; when we first made the frame.
(setq parms (cons '(reverse) (delq (assq 'reverse parms) parms)))
(if (assq 'height frame-initial-geometry-arguments)
(setq parms (delq (assq 'height parms) parms)))
(if (assq 'width frame-initial-geometry-arguments)
(setq parms (delq (assq 'width parms) parms)))
(if (assq 'left frame-initial-geometry-arguments)
(setq parms (delq (assq 'left parms) parms)))
(if (assq 'top frame-initial-geometry-arguments)
(setq parms (delq (assq 'top parms) parms)))
(setq new
(make-frame
;; Use the geometry args that created the existing
;; frame, rather than the parms we get for it.
(append frame-initial-geometry-arguments parms)))
;; The initial frame, which we are about to delete, may be
;; the only frame with a minibuffer. If it is, create a
;; new one.
......
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