mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-11 16:08:13 +00:00
Code Issues Releases Activity

Put height and width from geometry parm into default-frame-alist.

Browse Source
This commit is contained in:
Richard M. Stallman 1995-01-11 04:44:10 +00:00
parent 0c22b79bad
commit e42a4b863a
1 changed files with 15 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
lisp/term/x-win.el
View File

@ -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))