[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
feature/icomplete-vertical 9718db9 9/9: Add special management of first
From: |
Jimmy Aguilar Mena |
Subject: |
feature/icomplete-vertical 9718db9 9/9: Add special management of first candidate |
Date: |
Sun, 13 Sep 2020 09:47:55 -0400 (EDT) |
branch: feature/icomplete-vertical
commit 9718db96c5d308a6478be66b4dbe82839bb84dbe
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
- branch feature/icomplete-vertical created (now 9718db9), Jimmy Aguilar Mena, 2020/09/13
- feature/icomplete-vertical 6c74674 1/9: Add variables for icomplete indicators., Jimmy Aguilar Mena, 2020/09/13
- feature/icomplete-vertical 4047304 4/9: Icomplete-vertical fix first candidate and icomplete-hide-common-prefix., Jimmy Aguilar Mena, 2020/09/13
- feature/icomplete-vertical 3007a5e 2/9: WIP_minor, Jimmy Aguilar Mena, 2020/09/13
- feature/icomplete-vertical bfe0127 3/9: Improve icomplete-vertical implementation., Jimmy Aguilar Mena, 2020/09/13
- feature/icomplete-vertical 3f68496 5/9: icomplete-vertical code simplify, Jimmy Aguilar Mena, 2020/09/13
- feature/icomplete-vertical 40b57c4 7/9: icomplete add item format., Jimmy Aguilar Mena, 2020/09/13
- feature/icomplete-vertical fbc84d8 8/9: Add icomplete--format-function to format items., Jimmy Aguilar Mena, 2020/09/13
- feature/icomplete-vertical 9718db9 9/9: Add special management of first candidate,
Jimmy Aguilar Mena <=
- feature/icomplete-vertical 372feef 6/9: Add modified local map for icomplete., Jimmy Aguilar Mena, 2020/09/13