[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
feature/icomplete-vertical dce9b28 09/16: Add special management of firs
From: |
Jimmy Aguilar Mena |
Subject: |
feature/icomplete-vertical dce9b28 09/16: Add special management of first candidate |
Date: |
Tue, 15 Sep 2020 05:34:17 -0400 (EDT) |
branch: feature/icomplete-vertical
commit dce9b282a959c7b20f784071dcd1a8935d8f2912
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
- feature/icomplete-vertical b64a4c9 10/16: Fix icomplete prompt not visible in icomplete-vertical (bug#24293), (continued)
- feature/icomplete-vertical b64a4c9 10/16: Fix icomplete prompt not visible in icomplete-vertical (bug#24293), Jimmy Aguilar Mena, 2020/09/15
- feature/icomplete-vertical 4de4123 06/16: Add modified local map for icomplete., Jimmy Aguilar Mena, 2020/09/15
- feature/icomplete-vertical fc839ec 08/16: Add icomplete--format-function to format items., Jimmy Aguilar Mena, 2020/09/15
- feature/icomplete-vertical da9b365 02/16: WIP_minor, Jimmy Aguilar Mena, 2020/09/15
- feature/icomplete-vertical e2ffe81 05/16: icomplete-vertical code simplify, Jimmy Aguilar Mena, 2020/09/15
- feature/icomplete-vertical 157895a 03/16: Improve icomplete-vertical implementation., Jimmy Aguilar Mena, 2020/09/15
- feature/icomplete-vertical 4678b15 11/16: Improve vertical height calculation when not in minibuffer, Jimmy Aguilar Mena, 2020/09/15
- feature/icomplete-vertical 7568436 12/16: Fix previous commit., Jimmy Aguilar Mena, 2020/09/15
- feature/icomplete-vertical 6ec1ac1 07/16: icomplete add item format., Jimmy Aguilar Mena, 2020/09/15
- feature/icomplete-vertical 438a0b3 13/16: Improve formated size calculation, Jimmy Aguilar Mena, 2020/09/15
- feature/icomplete-vertical dce9b28 09/16: Add special management of first candidate,
Jimmy Aguilar Mena <=
- feature/icomplete-vertical f80a97f 16/16: Rename internal variables to follow convention., Jimmy Aguilar Mena, 2020/09/15
- feature/icomplete-vertical 337a5f9 14/16: convert icomplete-tidy-shadowed-file-names in a custom, Jimmy Aguilar Mena, 2020/09/15
- feature/icomplete-vertical 6d91416 15/16: Make some variable local or custom., Jimmy Aguilar Mena, 2020/09/15