From ed13f14a37da8dd3a6d78e1aaab02408ea0fa1b4 Mon Sep 17 00:00:00 2001 From: Akib Azmain Turja Date: Mon, 27 Jun 2022 18:50:54 +0600 Subject: [PATCH] Ignore down-mouse-1 and down-mouse-3 events in popup --- corfu-mouse.el | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) 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