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

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

diff --git a/lisp/minibuffer.el b/lisp/minibuffer.el
index 878a1104ebeb7591bf24f07f2057da477ec5f498..d6d40d5b251c3746b468f0cca02e116711e6e6c8 100644 (file)
--- 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