From 6e42f5f8bb41579fdfd945c8d44bbaf46f3d9c17 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sun, 1 May 1994 08:55:23 +0000 Subject: [PATCH] (x-handle-geometry): Specify user-position and user-size properties when appropriate. --- lisp/term/x-win.el | 13 +++++++++---- 1 file 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 @@ ;; Handle the geometry option (defun x-handle-geometry (switch) - (setq initial-frame-alist - (append initial-frame-alist - (x-parse-geometry (car x-invocation-args))) - x-invocation-args (cdr x-invocation-args))) + (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)))) ;; Handle the -name and -rn options. Set the variable x-resource-name ;; to the option's operand; if the switch was `-name', set the name of -- 2.39.5