From: Pip Cet <pipcet@gmail.com>
Date: Tue, 11 Jun 2019 08:13:36 +0000 (+0200)
Subject: Fix mouse cursor movement in 'select-frame-set-input-focus' (Bug#36165)
X-Git-Tag: emacs-27.0.90~2624
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=70d5e0ce3896d12e70472a3f33312d4a60b3e607;p=emacs.git

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 a8c230cb7b2..7b61003c9ac 100644
--- 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.