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

Fix mouse-position for xterm-mouse-mode

Browse source 
* lisp/xt-mouse.el (xterm-mouse-position-function): Return the frame
recorded in the terminal parameter xterm-mouse-frame.
This commit is contained in:
Gerd Möllmann 2024-10-31 21:16:13 +01:00
parent dfb7f19426
commit e232377524
1 changed files with 5 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
lisp/xt-mouse.el
View file

@ -151,10 +151,11 @@ https://invisible-island.net/xterm/ctlseqs/ctlseqs.html)."
(defun xterm-mouse-position-function (pos)
"Bound to `mouse-position-function' in XTerm mouse mode."
(when (terminal-parameter nil 'xterm-mouse-x)
(setcdr pos (cons (terminal-parameter nil 'xterm-mouse-x)
(terminal-parameter nil 'xterm-mouse-y))))
pos)
(if (terminal-parameter nil 'xterm-mouse-x)
(cons (terminal-parameter nil 'xterm-mouse-frame)
(cons (terminal-parameter nil 'xterm-mouse-x)
(terminal-parameter nil 'xterm-mouse-y)))
pos))
(define-obsolete-function-alias 'xterm-mouse-truncate-wrap 'truncate "27.1")