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

(x-handle-geometry): Put height and width on default-frame-alist,

left and top on initial-frame-alist.
parent 67f5954c
2001-12-23 Richard M. Stallman <rms@gnu.org>
 
* term/x-win.el (x-handle-geometry): Put height and width
on default-frame-alist, left and top on initial-frame-alist.
* term/w32-win.el (x-handle-geometry): Likewise.
* sort.el (sort-reorder-buffer): Copy all to a temp buffer first.
 
* play/yow.el (yow): Use an arg to distinguish interactive calls,
......
......@@ -300,15 +300,24 @@ the last file dropped is selected."
(defun x-handle-geometry (switch)
"Handle the \"-geometry\" SWITCH."
(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))))
(let* ((geo (x-parse-geometry (car 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)))))
(if (or left top)
(setq initial-frame-alist
(append initial-frame-alist
'((user-position . t))
(if left (list left))
(if top (list top)))))
(setq x-invocation-args (cdr x-invocation-args))))
(defun x-handle-name-rn-switch (switch)
"Handle a \"-name\" or \"-rn\" SWITCH."
......
......@@ -127,15 +127,24 @@
;; Handle the geometry option
(defun x-handle-geometry (switch)
(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))))
(let* ((geo (x-parse-geometry (car 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)))))
(if (or left top)
(setq initial-frame-alist
(append initial-frame-alist
'((user-position . t))
(if left (list left))
(if top (list top)))))
(setq x-invocation-args (cdr x-invocation-args))))
;; Handle the -name option. Set the variable x-resource-name
;; to the option's operand; 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