branch: externals/aggressive-completion
commit d7bfb380b8b9f56582558f944d648fb17a42f9fb
Author: Tassilo Horn <t...@gnu.org>
Commit: Tassilo Horn <t...@gnu.org>
Don't bump back to top on scroll commands.
* aggressive-completion.el (aggressive-completion--do): Don't bump back to
top
on scroll commands.
---
aggressive-completion.el | 8 ++++++--
1 file changed, 6 insertions(+), 2 deletions(-)
diff --git a/aggressive-completion.el b/aggressive-completion.el
index ddf49ef2ee..73dd1e8709 100644
--- a/aggressive-completion.el
+++ b/aggressive-completion.el
@@ -146,14 +146,18 @@ Ivy, Selectrum, or Vertico."
(minibuffer-completion-help)))
;; Only show the completion help. This slightly awkward
;; condition ensures we still can repeatedly hit TAB to scroll
- ;; through the list of completions.
+ ;; through the list of completions or scroll the list using
+ ;; scroll commands without having it bump back.
(when (and aggressive-completion-auto-completion-help
(not
(and
(memq last-command
(cons aggressive-completion-auto-complete-fn
'(completion-at-point
- minibuffer-complete)))
+ minibuffer-complete
+ scroll-other-window
+ mwheel-scroll
+ pixel-scroll-precision)))
(window-live-p
(get-buffer-window "*Completions*"))
(with-current-buffer "*Completions*"
