From: Gerd Möllmann <gerd@gnu.org>
Date: Mon, 27 Jan 2025 09:21:08 +0000 (+0100)
Subject: ; Fix workaround for xt-mouse-tests
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=d4a24439f74a1f283ccf6834d43b31ec5b1701fd;p=emacs.git

; 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)
---

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))