diff options
| author | YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp> | 2006-10-19 08:02:23 +0000 |
|---|---|---|
| committer | YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp> | 2006-10-19 08:02:23 +0000 |
| commit | 045b190821781a78d6618b296d97369612ad4bd2 (patch) | |
| tree | b762e81df3cb8e3f796b816b261c2295c5aac98e /lisp/term | |
| parent | 9346531434a0091a5655d83f9436fa011431bcfd (diff) | |
| download | emacs-045b190821781a78d6618b296d97369612ad4bd2.tar.gz | |
*** empty log message ***
Diffstat (limited to 'lisp/term')
| -rw-r--r-- | lisp/term/mac-win.el | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/lisp/term/mac-win.el b/lisp/term/mac-win.el index bda2e398cb7..3f67c2c6613 100644 --- a/lisp/term/mac-win.el +++ b/lisp/term/mac-win.el @@ -2526,12 +2526,15 @@ ascii:-*-Monaco-*-*-*-*-12-*-*-*-*-*-mac-roman") (cons '(user-size . t) parsed)))) ;; All geometry parms apply to the initial frame. (setq initial-frame-alist (append initial-frame-alist parsed)) - ;; The size parms apply to all frames. - (if (assq 'height parsed) + ;; The size parms apply to all frames. Don't set it if there are + ;; sizes there already (from command line). + (if (and (assq 'height parsed) + (not (assq 'height default-frame-alist))) (setq default-frame-alist (cons (cons 'height (cdr (assq 'height parsed))) default-frame-alist))) - (if (assq 'width parsed) + (if (and (assq 'width parsed) + (not (assq 'width default-frame-alist))) (setq default-frame-alist (cons (cons 'width (cdr (assq 'width parsed))) default-frame-alist)))))) |