feature/completions-customs 3f17e3acb3 2/2: Extend completion-auto-help 'always and 'visible.

[Jimmy Aguilar Mena]

branch: feature/completions-customs
commit 3f17e3acb3f0cff731c555f2abb97c763f005fc4
Author: Jimmy Aguilar Mena <spacibba@aol.com>
Commit: Jimmy Aguilar Mena <spacibba@aol.com>

    Extend completion-auto-help 'always and 'visible.
    
    Make them behave the same also with exact but not single completion.
---
 lisp/minibuffer.el | 15 +++++++--------
 1 file changed, 7 insertions(+), 8 deletions(-)

diff --git a/lisp/minibuffer.el b/lisp/minibuffer.el
index 878a1104eb..d6d40d5b25 100644
--- a/lisp/minibuffer.el
+++ b/lisp/minibuffer.el
@@ -1353,18 +1353,17 @@ when the buffer's text is already an exact match."
               (minibuffer-force-complete beg end))
              (completed
               (cond
-               (exact
-                ;; If completion did not put point at end of field,
-                ;; it's a sign that completion is not finished.
-                (minibuffer-hide-completions)
-                (completion--done completion
-                                  (if (< comp-pos (length completion))
-                                      'exact 'unknown)))
                ((pcase completion-auto-help
                   ('visible (get-buffer-window "*Completions*" 0))
                   ('always t))
                 (minibuffer-completion-help beg end))
-               (t (minibuffer-hide-completions))))
+               (t (minibuffer-hide-completions)
+                  (when exact
+                    ;; If completion did not put point at end of field,
+                    ;; it's a sign that completion is not finished.
+                    (completion--done completion
+                                      (if (< comp-pos (length completion))
+                                          'exact 'unknown))))))
              ;; Show the completion table, if requested.
              ((not exact)
              (if (pcase completion-auto-help