branch: externals/vertico
commit 4acc17e8c5e1cb1b180750f15f6799ac2d505e10
Author: Daniel Mendler <m...@daniel-mendler.de>
Commit: Daniel Mendler <m...@daniel-mendler.de>
Show !/0 if match is required
---
minicomp.el | 14 +++++++-------
1 file changed, 7 insertions(+), 7 deletions(-)
diff --git a/minicomp.el b/minicomp.el
index 8432940..2df2b6f 100644
--- a/minicomp.el
+++ b/minicomp.el
@@ -289,8 +289,7 @@
(let* ((index (min (max 0 (- minicomp--index (/ minicomp-count 2)))
(max 0 (- minicomp--total minicomp-count))))
(candidates (seq-subseq minicomp--candidates index
- (min (+ index minicomp-count)
- minicomp--total)))
+ (min (+ index minicomp-count)
minicomp--total)))
(ann-candidates
(minicomp--annotate
metadata
@@ -349,7 +348,10 @@
(overlay-put minicomp--count-ov 'before-string
(format (car minicomp-count-format)
(format (cdr minicomp-count-format)
- (if (< minicomp--index 0) "*" (1+
minicomp--index))
+ (cond
+ ((>= minicomp--index 0) (1+ minicomp--index))
+ ((minicomp--require-match) "!")
+ (t "*"))
minicomp--total)))))
(defun minicomp--tidy-shadowed-file ()
@@ -384,10 +386,8 @@
"Go to INDEX."
(setq minicomp--keep t
minicomp--index
- (max
- (if (and (minicomp--require-match) (> minicomp--total 0))
- 0
- -1)
+ (max (if (and (minicomp--require-match) minicomp--candidates)
+ 0 -1)
(min index (- minicomp--total 1)))))
(defun minicomp-beginning-of-buffer ()
