From: Jimmy Aguilar Mena <spacibba@aol.com>
Date: Sun, 13 Mar 2022 19:42:08 +0000 (+0100)
Subject: Extend completion-auto-help 'always and 'visible.
X-Git-Tag: emacs-29.0.90~1931^2~1002^2~11
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=3f17e3acb3f0cff731c555f2abb97c763f005fc4;p=emacs.git

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 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