[elpa] externals/vertico e35567b9f4 2/3: vertico-mouse: Use define-keymap

[ELPA Syncer]

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

    vertico-mouse: Use define-keymap
---
 extensions/vertico-mouse.el | 23 +++++++++++------------
 1 file changed, 11 insertions(+), 12 deletions(-)

diff --git a/extensions/vertico-mouse.el b/extensions/vertico-mouse.el
index db309c8a4e..ffcc9bc73c 100644
--- a/extensions/vertico-mouse.el
+++ b/extensions/vertico-mouse.el
@@ -39,18 +39,17 @@
 
 (defun vertico-mouse--candidate-map (index)
   "Return keymap for candidate with INDEX."
-  (let ((map (make-sparse-keymap)))
-    (define-key map [mouse-1] (lambda ()
-                                (interactive)
-                                (with-selected-window 
(active-minibuffer-window)
-                                  (let ((vertico--index index))
-                                    (vertico-exit)))))
-    (define-key map [mouse-3] (lambda ()
-                                (interactive)
-                                (with-selected-window 
(active-minibuffer-window)
-                                  (let ((vertico--index index))
-                                    (vertico-insert)))))
-    map))
+  (define-keymap
+    "<mouse-1>" (lambda ()
+                  (interactive)
+                  (with-selected-window (active-minibuffer-window)
+                    (let ((vertico--index index))
+                      (vertico-exit))))
+    "<mouse-3>" (lambda ()
+                  (interactive)
+                  (with-selected-window (active-minibuffer-window)
+                    (let ((vertico--index index))
+                      (vertico-insert))))))
 
 (defun vertico-mouse--format-candidate (orig cand prefix suffix index start)
   "Format candidate, see `vertico--format-candidate' for arguments."