diff options
| author | Richard M. Stallman <rms@gnu.org> | 1993-06-02 19:10:31 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1993-06-02 19:10:31 +0000 |
| commit | 11281034b72ad4335290d46a979dae8ce82c289e (patch) | |
| tree | 2014595d4b2936b3995eb332f1b61a780885bc93 /lisp | |
| parent | 20a828956a0f9c1a9e84a10e15e5e25bf73ee07e (diff) | |
| download | emacs-11281034b72ad4335290d46a979dae8ce82c289e.tar.gz | |
(frame-initialize): Delete geometry parms from initial-frame-alist.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/frame.el | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/lisp/frame.el b/lisp/frame.el index 8faa376569f..a255c586401 100644 --- a/lisp/frame.el +++ b/lisp/frame.el @@ -98,6 +98,16 @@ These supercede the values given in `default-frame-alist'.") (setq default-minibuffer-frame (setq frame-initial-frame (new-frame initial-frame-alist))) + ;; Delete any specifications for window geometry parameters + ;; so that we won't reapply them in frame-notice-user-settings. + ;; It would be wrong to reapply them then, + ;; because that would override explicit user resizing. + (setq initial-frame-alist + (delq (assq 'height initial-frame-alist) + (delq (assq 'width initial-frame-alist) + (delq (assq 'left initial-frame-alist) + (delq (assq 'top initial-frame-alist) + initial-frame-alist))))) ;; Handle `reverse' as a parameter. (if (cdr (or (assq 'reverse initial-frame-alist) (assq 'reverse default-frame-alist) |