/[emacs]/emacs/lisp/term/w32-win.el
ViewVC logotype

Diff of /emacs/lisp/term/w32-win.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.44 by jasonr, Sun Oct 21 17:15:18 2001 UTC revision 1.45 by rms, Mon Dec 24 04:52:30 2001 UTC
# Line 300  the last file dropped is selected." Line 300  the last file dropped is selected."
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."

Legend:
Removed from v.1.44  
changed lines
  Added in v.1.45

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26