[elpa] externals/aggressive-completion d7bfb380b8: Don't bump back to top on scroll commands.

[Tassilo Horn]

branch: externals/aggressive-completion
commit d7bfb380b8b9f56582558f944d648fb17a42f9fb
Author: Tassilo Horn <tsdh@gnu.org>
Commit: Tassilo Horn <tsdh@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*"