Commit 70d5e0ce authored by Pip Cet's avatar Pip Cet Committed by Martin Rudalics

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).
parent 0026d0bf
Pipeline #1990 failed with stage
in 3 seconds
......@@ -979,10 +979,11 @@ recently selected windows nor the buffer list."
;; Move mouse cursor if necessary.
(cond
(mouse-autoselect-window
(let ((edges (window-inside-edges (frame-selected-window frame))))
(let ((edges (window-edges (frame-selected-window frame)
t nil t)))
;; Move mouse cursor into FRAME's selected window to avoid that
;; Emacs mouse-autoselects another window.
(set-mouse-position frame (nth 2 edges) (nth 1 edges))))
(set-mouse-pixel-position frame (1- (nth 2 edges)) (nth 1 edges))))
(focus-follows-mouse
;; Move mouse cursor into FRAME to avoid that another frame gets
;; selected by the window manager.
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment