emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Emacs-diffs] master 70d5e0c: Fix mouse cursor movement in 'select-frame


From: Martin Rudalics
Subject: [Emacs-diffs] master 70d5e0c: Fix mouse cursor movement in 'select-frame-set-input-focus' (Bug#36165)
Date: Tue, 11 Jun 2019 04:14:22 -0400 (EDT)

branch: master
commit 70d5e0ce3896d12e70472a3f33312d4a60b3e607
Author: Pip Cet <address@hidden>
Commit: Martin Rudalics <address@hidden>

    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).
---
 lisp/frame.el | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/lisp/frame.el b/lisp/frame.el
index a8c230c..7b61003 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.



reply via email to

[Prev in Thread] Current Thread [Next in Thread]