diff --git a/corfu-mouse.el b/corfu-mouse.el index 5029073..d2e21ab 100644 --- a/corfu-mouse.el +++ b/corfu-mouse.el @@ -66,6 +66,8 @@ (corfu-complete))) (define-key map [mouse-1] mouse-1) (define-key map [mouse-3] mouse-3) + (define-key map [down-mouse-1] #'ignore) + (define-key map [down-mouse-3] #'ignore) map)) (defun corfu-mouse--format-candidates (fcands) @@ -122,7 +124,7 @@ FCANDS is the return value of `corfu--format-candidates'." triple-mouse-4 triple-mouse-5)) (continue-commands '("corfu-mouse--on-mouse-1" "corfu-mouse--on-mouse-3" - mwheel-scroll mouse-drag-region))) + mwheel-scroll))) (cond (corfu-mouse-mode (advice-add #'corfu--format-candidates :filter-return