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

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

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

revision 1.147 by eliz, Sun Sep 23 17:36:28 2001 UTC revision 1.148 by rms, Mon Dec 24 04:51:32 2001 UTC
# Line 127  Line 127 
127    
128  ;; Handle the geometry option  ;; Handle the geometry option
129  (defun x-handle-geometry (switch)  (defun x-handle-geometry (switch)
130    (let ((geo (x-parse-geometry (car x-invocation-args))))    (let* ((geo (x-parse-geometry (car x-invocation-args)))
131      (setq initial-frame-alist           (left (assq 'left geo))
132            (append initial-frame-alist           (top (assq 'top geo))
133                    (if (or (assq 'left geo) (assq 'top geo))           (height (assq 'height geo))
134                        '((user-position . t)))           (width (assq 'width geo)))
135                    (if (or (assq 'height geo) (assq 'width geo))      (if (or height width)
136                        '((user-size . t)))          (setq default-frame-alist
137                    geo)                (append default-frame-alist
138            x-invocation-args (cdr x-invocation-args))))                        '((user-size . t))
139                          (if height (list height))
140                          (if width (list width)))))
141        (if (or left top)
142            (setq initial-frame-alist
143                  (append initial-frame-alist
144                          '((user-position . t))
145                          (if left (list left))
146                          (if top (list top)))))
147        (setq x-invocation-args (cdr x-invocation-args))))
148    
149  ;; Handle the -name option.  Set the variable x-resource-name  ;; Handle the -name option.  Set the variable x-resource-name
150  ;; to the option's operand; set the name of  ;; to the option's operand; set the name of

Legend:
Removed from v.1.147  
changed lines
  Added in v.1.148

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