Skip to content

Commit 70d5e0c

Browse files
pipcetMartin Rudalics
authored andcommitted
Fix mouse cursor movement in 'select-frame-set-input-focus' (Bug#36165)
* lisp/frame.el (select-frame-set-input-focus): With 'mouse-autoselect-window' use 'set-mouse-pixel-position' to avoid selecting another window manager window (Bug#36165).
1 parent 0026d0b commit 70d5e0c

File tree

1 file changed

+3
-2
lines changed

1 file changed

+3
-2
lines changed

lisp/frame.el

Lines changed: 3 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -979,10 +979,11 @@ recently selected windows nor the buffer list."
979979
;; Move mouse cursor if necessary.
980980
(cond
981981
(mouse-autoselect-window
982-
(let ((edges (window-inside-edges (frame-selected-window frame))))
982+
(let ((edges (window-edges (frame-selected-window frame)
983+
t nil t)))
983984
;; Move mouse cursor into FRAME's selected window to avoid that
984985
;; Emacs mouse-autoselects another window.
985-
(set-mouse-position frame (nth 2 edges) (nth 1 edges))))
986+
(set-mouse-pixel-position frame (1- (nth 2 edges)) (nth 1 edges))))
986987
(focus-follows-mouse
987988
;; Move mouse cursor into FRAME to avoid that another frame gets
988989
;; selected by the window manager.

0 commit comments

Comments
 (0)