[elpa] externals/osm de1a805e37 2/3: Use simpler keymap when moving

[ELPA Syncer]

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

    Use simpler keymap when moving
---
 osm.el | 30 ++++++++++++------------------
 1 file changed, 12 insertions(+), 18 deletions(-)

diff --git a/osm.el b/osm.el
index a5929bdb15..4167e68653 100644
--- a/osm.el
+++ b/osm.el
@@ -571,24 +571,18 @@ Should be at least 7 days according to the server usage 
policies."
 (defun osm-mouse-drag (event)
   "Handle drag EVENT."
   (interactive "@e")
-  (pcase-let ((`(,sx . ,sy) (posn-x-y (event-start event)))
-              (win (selected-window))
-              (map (make-sparse-keymap)))
-    (define-key map [mouse-movement]
-      (lambda (event)
-        (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)
-          (define-key map [drag-mouse-1] #'ignore)
-          (define-key map [drag-mouse-2] #'ignore)
-          (define-key map [drag-mouse-3] #'ignore)
-          (pcase-let ((`(,ex . ,ey) (posn-x-y event)))
-            (osm--move (- sx ex) (- sy ey))
-            (setq sx ex sy ey)
-            (osm--update)))))
+  (pcase-let* ((`(,sx . ,sy) (posn-x-y (event-start event)))
+               (win (selected-window))
+               (map (define-keymap
+                      "<mouse-movement>"
+                      (lambda (event)
+                        (interactive "e")
+                        (setq event (event-start event))
+                        (when (eq win (posn-window event))
+                          (pcase-let ((`(,ex . ,ey) (posn-x-y event)))
+                            (osm--move (- sx ex) (- sy ey))
+                            (setq sx ex sy ey)
+                            (osm--update)))))))
     (setq track-mouse 'dragging)
     (set-transient-map map
                        (lambda () (eq (car-safe last-input-event) 
'mouse-movement))