diff options
| author | Richard M. Stallman <rms@gnu.org> | 1995-01-11 04:44:10 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1995-01-11 04:44:10 +0000 |
| commit | a1c31fb043935c81505add3efe929383aca4c72c (patch) | |
| tree | 961347459a3a03f16275e8ac2c5bb509d9c663db /lisp/term | |
| parent | 294dc59e167df0a3e5c60a5ef28bf7dbe55efa87 (diff) | |
| download | emacs-a1c31fb043935c81505add3efe929383aca4c72c.tar.gz | |
Put height and width from geometry parm into default-frame-alist.
Diffstat (limited to 'lisp/term')
| -rw-r--r-- | lisp/term/x-win.el | 18 |
1 files changed, 15 insertions, 3 deletions
diff --git a/lisp/term/x-win.el b/lisp/term/x-win.el index 94abf5f6b82..e09a04fc223 100644 --- a/lisp/term/x-win.el +++ b/lisp/term/x-win.el @@ -693,10 +693,22 @@ This is in addition to the primary selection.") ;; Apply a geometry resource to the initial frame. Put it at the end ;; of the alist, so that anything specified on the command line takes ;; precedence. -(let ((res-geometry (x-get-resource "geometry" "Geometry"))) +(let* ((res-geometry (x-get-resource "geometry" "Geometry")) + parsed) (if res-geometry - (setq initial-frame-alist (append initial-frame-alist - (x-parse-geometry res-geometry))))) + (progn + (setq parsed (x-parse-geometry res-geometry)) + ;; 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) + (setq default-frame-alist + (cons (cons 'height (cdr (assq 'height parsed))) + default-frame-alist))) + (if (assq 'width parsed) + (setq default-frame-alist + (cons (cons 'width (cdr (assq 'width parsed))) + default-frame-alist)))))) ;; Check the reverseVideo resource. (let ((case-fold-search t)) |