[elpa] externals/aggressive-completion 62a707b: New option aggressive-completion-auto-completion-help

[Tassilo Horn]

branch: externals/aggressive-completion
commit 62a707b19918edf69f8f34b2afa2afcaa7083cfe
Author: Tassilo Horn <tsdh@gnu.org>
Commit: Tassilo Horn <tsdh@gnu.org>

    New option aggressive-completion-auto-completion-help
    
    The new option aggressive-completion-auto-completion-help can be used to
    disable automatic display of the completion help.
---
 aggressive-completion.el | 25 ++++++++++++++++---------
 1 file changed, 16 insertions(+), 9 deletions(-)

diff --git a/aggressive-completion.el b/aggressive-completion.el
index 8859552..eda4a39 100644
--- a/aggressive-completion.el
+++ b/aggressive-completion.el
@@ -60,8 +60,11 @@
   :type 'number)
 
 (defcustom aggressive-completion-auto-complete t
-  "Complete automatically if non-nil.
-If nil, only show the completion help."
+  "Complete automatically if non-nil."
+  :type 'boolean)
+
+(defcustom aggressive-completion-auto-completion-help t
+  "Show completion help automatically if non-nil."
   :type 'boolean)
 
 (defcustom aggressive-completion-max-shown-completions 1000
@@ -98,17 +101,21 @@ If nil, only show the completion help."
                 ;; Perform automatic completion.
                 (progn
                   (minibuffer-complete)
-                  (unless (window-live-p (get-buffer-window "*Completions*"))
+                  (when (and aggressive-completion-auto-completion-help
+                             (not (window-live-p
+                                   (get-buffer-window "*Completions*"))))
                     (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.
-              (unless (and (memq last-command
-                                 '(completion-at-point minibuffer-complete))
-                           (window-live-p
-                            (get-buffer-window "*Completions*"))
-                           (with-current-buffer "*Completions*"
-                             (> (point) (point-min))))
+              (when (and aggressive-completion-auto-completion-help
+                         (not (and (memq last-command
+                                         '(completion-at-point
+                                           minibuffer-complete))
+                                   (window-live-p
+                                    (get-buffer-window "*Completions*"))
+                                   (with-current-buffer "*Completions*"
+                                     (> (point) (point-min))))))
                 (minibuffer-completion-help)))
           ;; Close the *Completions* buffer if there are too many
           ;; or zero completions.