From c1e6740184ef8e07a50ee54788871d57bf4c142d Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Fri, 6 May 1994 00:32:58 +0000 Subject: [PATCH] (frame-notice-user-settings): Use geometry parms from frame when the initial specifications did not have them. --- lisp/frame.el | 28 +++++++++++++++++----------- 1 file changed, 17 insertions(+), 11 deletions(-) diff --git a/lisp/frame.el b/lisp/frame.el index 915c96c43dc..872a2f4acce 100644 --- a/lisp/frame.el +++ b/lisp/frame.el @@ -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.