Extend completion-auto-help 'always and 'visible.

Make them behave the same also with exact but not single completion.

1 files changed, 7 insertions, 8 deletions

diff --git a/lisp/minibuffer.el b/lisp/minibuffer.el
index 878a1104ebe..d6d40d5b251 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