Commit 6e42f5f8 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(x-handle-geometry): Specify user-position and

user-size properties when appropriate.
parent 2d2bdb7a
......@@ -169,10 +169,15 @@
;; Handle the geometry option
(defun x-handle-geometry (switch)
(setq initial-frame-alist
(append initial-frame-alist
(x-parse-geometry (car x-invocation-args)))
x-invocation-args (cdr x-invocation-args)))
(let ((geo (x-parse-geometry (car x-invocation-args))))
(setq initial-frame-alist
(append initial-frame-alist
(if (or (assq 'left geo) (assq 'top geo))
'((user-position . t)))
(if (or (assq 'height geo) (assq 'width geo))
'((user-size . t)))
geo)
x-invocation-args (cdr x-invocation-args))))
;; Handle the -name and -rn options. Set the variable x-resource-name
;; to the option's operand; if the switch was `-name', set the name of
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment