[elpa] externals/osm d5c5dc6ffd 75/77: Mouse dragging: Check window

[ELPA Syncer]

branch: externals/osm
commit d5c5dc6ffd72ece296ccc4b3c89a697ca2ed4c77
Author: Daniel Mendler <mail@daniel-mendler.de>
Commit: Daniel Mendler <mail@daniel-mendler.de>

    Mouse dragging: Check window
---
 osm.el | 19 +++++++++++--------
 1 file changed, 11 insertions(+), 8 deletions(-)

diff --git a/osm.el b/osm.el
index 470e71b25d..7682b072af 100644
--- a/osm.el
+++ b/osm.el
@@ -353,19 +353,22 @@ Should be at least 7 days according to the server usage 
policies."
   "Handle drag EVENT."
   (interactive "@e")
   (pcase-let ((`(,sx . ,sy) (posn-x-y (event-start event)))
+              (win (selected-window))
               (map (make-sparse-keymap)))
     (cl-incf sx osm--x)
     (cl-incf sy osm--y)
     (define-key map [mouse-movement]
       (lambda (event)
-        (interactive "@e")
-        (define-key map [mouse-1] #'ignore)
-        (define-key map [mouse-2] #'ignore)
-        (define-key map [mouse-3] #'ignore)
-        (pcase-let ((`(,ex . ,ey) (posn-x-y (event-start event))))
-          (setq osm--x (- sx ex)
-                osm--y (- sy ey))
-          (osm--update))))
+        (interactive "e")
+        (setq event (event-start event))
+        (when (eq win (posn-window event))
+          (define-key map [mouse-1] #'ignore)
+          (define-key map [mouse-2] #'ignore)
+          (define-key map [mouse-3] #'ignore)
+          (pcase-let ((`(,ex . ,ey) (posn-x-y event)))
+            (setq osm--x (- sx ex)
+                  osm--y (- sy ey))
+            (osm--update)))))
     (setq track-mouse 'dragging)
     (set-transient-map map
                        (lambda () (eq (car-safe last-input-event) 
'mouse-movement))