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

diff --git a/lisp/frame.el b/lisp/frame.el
index a8c230cb7b20c1d9437084a2dae48df2afe40ecb..7b61003c9ac7e584ff3a745bc15f2f600b628088 100644 (file)
--- a/lisp/frame.el
+++ b/lisp/frame.el
@@ -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.