materus/emacs-corfu-mouse
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Don't mark mwheel-scrool as a continue command

Browse Source
This commit is contained in:
Akib Azmain Turja 2022-06-27 21:43:25 +06:00
parent ed13f14a37
commit 1f98509639
No known key found for this signature in database
GPG Key ID: 5535FCF54D88616B
1 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
corfu-mouse.el
View File

@ -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)