procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

; Fix workaround for xt-mouse-tests

Browse source 
* lisp/xt-mouse.el (xterm-mouse-event): For running this in batch mode,
fix computation of x and y.
This commit is contained in:
Gerd Möllmann 2025-01-27 10:21:08 +01:00
parent 827dfe5a72
commit 59050c3e8c
1 changed files with 4 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
lisp/xt-mouse.el
View file

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