[elpa] externals/vertico b612cb3 2/3: vertico-mouse: Improve wheel scrolling

[ELPA Syncer]

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

    vertico-mouse: Improve wheel scrolling
---
 extensions/vertico-mouse.el | 13 +++++++++++--
 1 file changed, 11 insertions(+), 2 deletions(-)

diff --git a/extensions/vertico-mouse.el b/extensions/vertico-mouse.el
index 5c1831f..a76932b 100644
--- a/extensions/vertico-mouse.el
+++ b/extensions/vertico-mouse.el
@@ -65,10 +65,19 @@
                        cand)
   cand)
 
+(defun vertico-mouse--scroll-up (n)
+  "Scroll up by N lines."
+  (setq vertico-mouse--start nil)
+  (vertico--goto (max 0 (+ vertico--index n))))
+
+(defun vertico-mouse--scroll-down (n)
+  "Scroll down by N lines."
+  (vertico-mouse--scroll-up (- n)))
+
 (defun vertico-mouse--setup ()
   "Setup mouse scrolling."
-  (setq-local mwheel-scroll-up-function #'vertico-next
-              mwheel-scroll-down-function #'vertico-previous))
+  (setq-local mwheel-scroll-up-function #'vertico-mouse--scroll-up
+              mwheel-scroll-down-function #'vertico-mouse--scroll-down))
 
 ;;;###autoload
 (define-minor-mode vertico-mouse-mode