Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-23 13:27:36 +00:00
Code Issues Projects Releases Packages Wiki Activity

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

Browse source 
left and top on initial-frame-alist.
This commit is contained in:
Richard M. Stallman 2001-12-24 04:52:54 +00:00
parent 67f5954cbd
commit ea8d306137
3 changed files with 40 additions and 18 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
lisp/ChangeLog
View file

@ -1,5 +1,9 @@
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,

27
lisp/term/w32-win.el
View file

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

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

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