mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-26 07:33:47 +00:00
Code Issues Releases Activity

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

Browse Source 
when the initial specifications did not have them.
This commit is contained in:
Richard M. Stallman 1994-05-06 00:32:58 +00:00
parent 791e09d82b
commit c1e6740184
1 changed files with 17 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
lisp/frame.el
View File

@ -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.