[elpa] externals/consult 2d0091f408: consult-info: Improve prompt

[ELPA Syncer]

branch: externals/consult
commit 2d0091f408dc8b92e03cc9c09855fa2bffb10d5d
Author: Daniel Mendler <mail@daniel-mendler.de>
Commit: Daniel Mendler <mail@daniel-mendler.de>

    consult-info: Improve prompt
---
 README.org      | 7 +++++++
 consult-info.el | 7 ++++++-
 2 files changed, 13 insertions(+), 1 deletion(-)

diff --git a/README.org b/README.org
index ce8ab740c8..4f2771ec88 100644
--- a/README.org
+++ b/README.org
@@ -347,8 +347,15 @@ their descriptions.
   own commands which search through a predefined set of info pages, for 
example:
 #+begin_src emacs-lisp
   (defun consult-info-emacs ()
+    "Search through Emacs info pages."
     (interactive)
     (consult-info "emacs" "elisp" "cl" "compat"))
+  (defun consult-info-completion ()
+    "Search through completion info pages."
+    (interactive)
+    (consult-info "vertico" "consult" "marginalia" "orderless" "embark"
+                  "corfu" "cape" "tempel"))
+
 #+end_src
 
 ** Miscellaneous
diff --git a/consult-info.el b/consult-info.el
index 847c47e059..b1238404be 100644
--- a/consult-info.el
+++ b/consult-info.el
@@ -141,7 +141,12 @@
            (consult--dynamic-collection
             (apply-partially #'consult-info--candidates (reverse buffers)))
            :state (consult-info--state)
-           :prompt (format "Info (%s): " (string-join manuals ", "))
+           :prompt
+           (format "Info (%s): "
+                   (string-join (if (length> manuals 3)
+                                    `(,@(seq-take manuals 3) ,"…")
+                                  manuals)
+                                ", "))
            :require-match t
            :sort nil
            :category 'consult-info