mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-30 20:32:00 -08:00
Code Issues Projects Releases Wiki Activity

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

Browse source 
user-size properties when appropriate.
This commit is contained in:
Richard M. Stallman 1994-05-01 08:55:23 +00:00
parent 2d2bdb7aba
commit 6e42f5f8bb
1 changed files with 9 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

13
lisp/term/x-win.el
View file

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