branch: externals/vertico
commit 4ce7c8d6a5770f12eb115712440f4155a2dbc5e0
Author: Daniel Mendler <m...@daniel-mendler.de>
Commit: Daniel Mendler <m...@daniel-mendler.de>
use seq-subseq
---
minicomp.el | 7 +++++--
1 file changed, 5 insertions(+), 2 deletions(-)
diff --git a/minicomp.el b/minicomp.el
index 5b8f85c..2f5f283 100644
--- a/minicomp.el
+++ b/minicomp.el
@@ -29,6 +29,7 @@
;;; Code:
+(require 'seq)
(eval-when-compile
(require 'subr-x))
@@ -228,7 +229,9 @@
"Display current candidates with INPUT string and METADATA."
(let* ((index (min (max 0 (- minicomp--index (/ minicomp-count 2)))
(max 0 (- minicomp--total minicomp-count))))
- (candidates (seq-take (nthcdr index minicomp--candidates)
minicomp-count))
+ (candidates (seq-subseq minicomp--candidates index
+ (min (+ index minicomp-count)
+ minicomp--total)))
(hl-candidates
(if (and (memq 'orderless completion-styles)
(fboundp 'orderless-highlight-matches))
@@ -280,7 +283,7 @@
(overlay-put minicomp--candidates-ov 'after-string displayed)
(overlay-put minicomp--count-ov 'before-string
(format "%-6s " (format "%s/%s"
- (if (< minicomp--index 0) "*"
minicomp--index)
+ (if (< minicomp--index 0) "*" (1+
minicomp--index))
minicomp--total)))))
(defun minicomp--exhibit ()
