diff options
| author | Richard M. Stallman <rms@gnu.org> | 1994-05-06 00:32:58 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1994-05-06 00:32:58 +0000 |
| commit | 1926e6cdf0b76e478226c80e39374cee9b709b37 (patch) | |
| tree | 45797662863d24ad30b8ef1593d0a61d8577bbef /lisp/frame.el | |
| parent | ccc6ba1dffad0cba3efc7567cd2ccc18c1f7e53a (diff) | |
| download | emacs-1926e6cdf0b76e478226c80e39374cee9b709b37.tar.gz | |
(frame-notice-user-settings): Use geometry parms from frame
when the initial specifications did not have them.
Diffstat (limited to 'lisp/frame.el')
| -rw-r--r-- | lisp/frame.el | 28 |
1 files 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. |