branch: externals/corfu
commit fe1d3b65e3d3592752a9379c3f45b8ddb8a53cf5
Author: Daniel Mendler <m...@daniel-mendler.de>
Commit: Daniel Mendler <m...@daniel-mendler.de>
Use keymap-set
---
corfu.el | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/corfu.el b/corfu.el
index 5c5c6ac338..139743f001 100644
--- a/corfu.el
+++ b/corfu.el
@@ -351,7 +351,7 @@ The completion backend can override this with
(let ((map (make-sparse-keymap)))
(dotimes (i 7)
(dolist (k '(mouse down-mouse drag-mouse double-mouse triple-mouse))
- (define-key map (vector (intern (format "%s-%s" k (1+ i)))) #'ignore)))
+ (keymap-set map (format "<%s-%s>" k (1+ i)) #'ignore)))
map)
"Ignore all mouse clicks.")
