300 |
|
|
301 |
(defun x-handle-geometry (switch) |
(defun x-handle-geometry (switch) |
302 |
"Handle the \"-geometry\" SWITCH." |
"Handle the \"-geometry\" SWITCH." |
303 |
(let ((geo (x-parse-geometry (car x-invocation-args)))) |
(let* ((geo (x-parse-geometry (car x-invocation-args))) |
304 |
(setq initial-frame-alist |
(left (assq 'left geo)) |
305 |
(append initial-frame-alist |
(top (assq 'top geo)) |
306 |
(if (or (assq 'left geo) (assq 'top geo)) |
(height (assq 'height geo)) |
307 |
'((user-position . t))) |
(width (assq 'width geo))) |
308 |
(if (or (assq 'height geo) (assq 'width geo)) |
(if (or height width) |
309 |
'((user-size . t))) |
(setq default-frame-alist |
310 |
geo) |
(append default-frame-alist |
311 |
x-invocation-args (cdr x-invocation-args)))) |
'((user-size . t)) |
312 |
|
(if height (list height)) |
313 |
|
(if width (list width))))) |
314 |
|
(if (or left top) |
315 |
|
(setq initial-frame-alist |
316 |
|
(append initial-frame-alist |
317 |
|
'((user-position . t)) |
318 |
|
(if left (list left)) |
319 |
|
(if top (list top))))) |
320 |
|
(setq x-invocation-args (cdr x-invocation-args)))) |
321 |
|
|
322 |
(defun x-handle-name-rn-switch (switch) |
(defun x-handle-name-rn-switch (switch) |
323 |
"Handle a \"-name\" or \"-rn\" SWITCH." |
"Handle a \"-name\" or \"-rn\" SWITCH." |