feature/icomplete-vertical fd92ea8 09/20: Add special management of first candidate

[Jimmy Aguilar Mena]

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

    Add special management of first candidate
---
 lisp/icomplete.el | 20 ++++++++------------
 1 file changed, 8 insertions(+), 12 deletions(-)

diff --git a/lisp/icomplete.el b/lisp/icomplete.el
index ebf251c..ccf85a2 100644
--- a/lisp/icomplete.el
+++ b/lisp/icomplete.el
@@ -919,7 +919,7 @@ minibuffer completion."
              ;;     (length most)
              ;; Else, use try-completion.
             (prefix (try-completion "" comps))
-            prospects)
+            prospects first)
 
        (if (or (eq most-try t)
                 (not (consp (cdr comps))))
@@ -952,21 +952,17 @@ minibuffer completion."
           (setq-local completion-content-when-empty (car prospects)))
         ;; Decorate first of the prospects.
        (when prospects
-         (let ((first (copy-sequence (pop prospects))))
-           (put-text-property 0 (length first)
-                              'face 'icomplete-first-match first)
-           (push first prospects)
+          (setq first (pop prospects))
 
-            (put-text-property 0 (length determ)
-                              'face 'icomplete-common-match determ)))
+         (put-text-property 0 (length first) 'face 'icomplete-first-match 
first)
+          (put-text-property 0 (length determ) 'face 'icomplete-common-match 
determ))
         ;; Restore the base-size info, since completion-all-sorted-completions
         ;; is cached.
         (when last (setcdr last base-size))
-       (if prospects
-           (concat determ
-                    (format icomplete--list-indicators
-                           (mapconcat
-                             #'icomplete--format-function prospects 
icomplete--separator)))
+       (if (or first prospects)
+            (format (concat determ first icomplete--separator 
icomplete--list-indicators)
+                    (mapconcat
+                     #'icomplete--format-function prospects 
icomplete--separator))
          (concat determ " [Matched]"))))))
 
 ;;; Iswitchb compatibility