Function: x-handle-geometry

x-handle-geometry is a byte-compiled function defined in common-win.el.gz.

Signature

(x-handle-geometry SWITCH)

Source Code

;; Defined in /usr/src/emacs/lisp/term/common-win.el.gz
;; Handle the geometry option
(defun x-handle-geometry (_switch)
  (let* ((geo (x-parse-geometry (pop x-invocation-args)))
	 (left (assq 'left geo))
	 (top (assq 'top geo))
	 (height (assq 'height geo))
	 (width (assq 'width geo)))
    (if (or height width)
	(setq default-frame-alist
	      (append default-frame-alist
		      '((user-size . t))
		      (if height (list height))
		      (if width (list width)))
	      initial-frame-alist
	      (append initial-frame-alist
		      '((user-size . t))
		      (if height (list height))
		      (if width (list width)))))
    (if (or left top)
	(setq initial-frame-alist
	      (append initial-frame-alist
		      '((user-position . t))
		      (if left (list left))
		      (if top (list top)))))))