From e42a4b863a18873535018118ffb886c6176ca801 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Wed, 11 Jan 1995 04:44:10 +0000 Subject: [PATCH] Put height and width from geometry parm into default-frame-alist. --- lisp/term/x-win.el | 18 +++++++++++++++--- 1 file 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)) -- 2.39.5