From 1f98509639dc9956d2c06ece5a99dfcc62b7635b Mon Sep 17 00:00:00 2001 From: Akib Azmain Turja Date: Mon, 27 Jun 2022 21:43:25 +0600 Subject: [PATCH] Don't mark mwheel-scrool as a continue command --- corfu-mouse.el | 10 ++++++++-- 1 file changed, 8 insertions(+), 2 deletions(-) diff --git a/corfu-mouse.el b/corfu-mouse.el index d2e21ab..3180aef 100644 --- a/corfu-mouse.el +++ b/corfu-mouse.el @@ -101,6 +101,11 @@ FCANDS is the return value of `corfu--format-candidates'." "Scroll down by N lines." (corfu-mouse--scroll-up (- n))) +(defun corfu-mouse-mwheel-scroll () + "Call `mwheel-scroll'." + (interactive) + (call-interactively #'mwheel-scroll)) + (defun corfu-mouse--setup-scrolling (buffer) "Setup mouse scrolling on BUFFER." (let ((current-buffer (current-buffer))) @@ -124,7 +129,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))) + corfu-mouse-mwheel-scroll))) (cond (corfu-mouse-mode (advice-add #'corfu--format-candidates :filter-return @@ -136,7 +141,8 @@ FCANDS is the return value of `corfu--format-candidates'." (setq corfu-continue-commands (append corfu-continue-commands continue-commands)) (dolist (event scroll-events) - (define-key corfu--mouse-ignore-map (vector event) nil))) + (define-key corfu--mouse-ignore-map (vector event) + #'corfu-mouse-mwheel-scroll))) (t (advice-remove #'corfu--format-candidates #'corfu-mouse--format-candidates)