feature/icomplete-vertical 40b57c4 7/9: icomplete add item format.

[Jimmy Aguilar Mena]

branch: feature/icomplete-vertical
commit 40b57c44a3fe41a6e898f0449dd4395bd80f7202
Author: Jimmy Aguilar Mena <spacibba@aol.com>
Commit: Jimmy Aguilar Mena <spacibba@aol.com>

    icomplete add item format.
---
 lisp/icomplete.el | 11 ++++++++++-
 1 file changed, 10 insertions(+), 1 deletion(-)

diff --git a/lisp/icomplete.el b/lisp/icomplete.el
index 85aafa0..a357935 100644
--- a/lisp/icomplete.el
+++ b/lisp/icomplete.el
@@ -148,6 +148,12 @@ icompletion is occurring."
                  (const vertical))
   :version "28.1")
 
+
+(defcustom icomplete-item-format "%s"
+  "Indicator bounds for match in the minibuffer when require-match."
+  :type 'string
+  :version "28.1")
+
 (defvar icomplete--separator nil
   "If there are multiple possibilities this separates them.")
 
@@ -943,7 +949,10 @@ minibuffer completion."
        (if prospects
            (concat determ
                     (format icomplete--list-indicators
-                           (mapconcat 'identity prospects 
icomplete--separator)))
+                           (mapconcat
+                             (lambda (item)
+                               (format icomplete-item-format item))
+                             prospects icomplete--separator)))
          (concat determ " [Matched]"))))))
 
 ;;; Iswitchb compatibility