diff options
| author | Richard M. Stallman | 1994-05-01 08:55:23 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1994-05-01 08:55:23 +0000 |
| commit | 6e42f5f8bb41579fdfd945c8d44bbaf46f3d9c17 (patch) | |
| tree | 0f52810cc93e88f9770e93566e442f3de3db5d7d | |
| parent | 2d2bdb7aba417ee2f1145d14110d7eb0a56eaecc (diff) | |
| download | emacs-6e42f5f8bb41579fdfd945c8d44bbaf46f3d9c17.tar.gz emacs-6e42f5f8bb41579fdfd945c8d44bbaf46f3d9c17.zip | |
(x-handle-geometry): Specify user-position and
user-size properties when appropriate.
| -rw-r--r-- | lisp/term/x-win.el | 13 |
1 files changed, 9 insertions, 4 deletions
diff --git a/lisp/term/x-win.el b/lisp/term/x-win.el index e300d797746..ec9060c448d 100644 --- a/lisp/term/x-win.el +++ b/lisp/term/x-win.el | |||
| @@ -169,10 +169,15 @@ | |||
| 169 | 169 | ||
| 170 | ;; Handle the geometry option | 170 | ;; Handle the geometry option |
| 171 | (defun x-handle-geometry (switch) | 171 | (defun x-handle-geometry (switch) |
| 172 | (setq initial-frame-alist | 172 | (let ((geo (x-parse-geometry (car x-invocation-args)))) |
| 173 | (append initial-frame-alist | 173 | (setq initial-frame-alist |
| 174 | (x-parse-geometry (car x-invocation-args))) | 174 | (append initial-frame-alist |
| 175 | x-invocation-args (cdr x-invocation-args))) | 175 | (if (or (assq 'left geo) (assq 'top geo)) |
| 176 | '((user-position . t))) | ||
| 177 | (if (or (assq 'height geo) (assq 'width geo)) | ||
| 178 | '((user-size . t))) | ||
| 179 | geo) | ||
| 180 | x-invocation-args (cdr x-invocation-args)))) | ||
| 176 | 181 | ||
| 177 | ;; Handle the -name and -rn options. Set the variable x-resource-name | 182 | ;; Handle the -name and -rn options. Set the variable x-resource-name |
| 178 | ;; to the option's operand; if the switch was `-name', set the name of | 183 | ;; to the option's operand; if the switch was `-name', set the name of |