From d4a24439f74a1f283ccf6834d43b31ec5b1701fd Mon Sep 17 00:00:00 2001 From: =?utf8?q?Gerd=20M=C3=B6llmann?= Date: Mon, 27 Jan 2025 10:21:08 +0100 Subject: [PATCH] ; Fix workaround for xt-mouse-tests * lisp/xt-mouse.el (xterm-mouse-event): For running this in batch mode, fix computation of x and y. (cherry picked from commit 59050c3e8c500e216ec7214195c9441ecb4a031c) --- lisp/xt-mouse.el | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/lisp/xt-mouse.el b/lisp/xt-mouse.el index e395723d05c..250f4efebb4 100644 --- a/lisp/xt-mouse.el +++ b/lisp/xt-mouse.el @@ -297,11 +297,12 @@ which is the \"1006\" extension implemented in Xterm >= 277." 1000)))) ;; FIXME: The test for running in batch mode is here solely ;; for the sake of xt-mouse-tests where the only frame is - ;; the initial frame. + ;; the initial frame. The same goes for the computation of + ;; x and y. (frame-and-xy (unless noninteractive (tty-frame-at x y))) (frame (nth 0 frame-and-xy)) - (x (nth 1 frame-and-xy)) - (y (nth 2 frame-and-xy)) + (x (or (nth 1 frame-and-xy) x)) + (y (or (nth 2 frame-and-xy) y)) (w (window-at x y frame)) (ltrb (window-edges w)) (left (nth 0 ltrb)) -- 2.39.5