Mercurial > emacs
changeset 7344:17a251bf595b
(frame-notice-user-settings): Use geometry parms from frame
when the initial specifications did not have them.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Fri, 06 May 1994 00:32:58 +0000 |
| parents | 81f9ad98c323 |
| children | c107ec7641ec |
| files | lisp/frame.el |
| diffstat | 1 files changed, 17 insertions(+), 11 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/frame.el Thu May 05 22:37:47 1994 +0000 +++ b/lisp/frame.el Fri May 06 00:32:58 1994 +0000 @@ -187,17 +187,23 @@ 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.