branch: externals/vertico commit 7dc2f0130f0fe6bd674f4f060dff76bc18889211 Author: Daniel Mendler <m...@daniel-mendler.de> Commit: Daniel Mendler <m...@daniel-mendler.de>
Use 1- Weird naming? --- vertico.el | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/vertico.el b/vertico.el index 26ad1d8..668827a 100644 --- a/vertico.el +++ b/vertico.el @@ -407,8 +407,8 @@ (while (> index vertico-count) (if (< current-line (/ index 2)) (nbutlast lines) - (setq current-line (- current-line 1) lines (cdr lines))) - (setq index (- index 1))) + (setq current-line (1- current-line) lines (cdr lines))) + (setq index (1- index))) lines)) (defun vertico--display-candidates (lines) @@ -507,7 +507,7 @@ (setq vertico--keep t vertico--index (max (if (or (vertico--allow-prompt-selection-p) (not vertico--candidates)) -1 0) - (min index (- vertico--total 1))))) + (min index (1- vertico--total))))) (defun vertico-first () "Go to first candidate, or to the prompt when the first candidate is selected." @@ -517,7 +517,7 @@ (defun vertico-last () "Go to last candidate." (interactive) - (vertico--goto (- vertico--total 1))) + (vertico--goto (1- vertico--total))) (defun vertico-scroll-down () "Go back by one page." @@ -542,8 +542,8 @@ (interactive) (vertico--goto (if (and vertico-cycle (= vertico--index (if (vertico--allow-prompt-selection-p) -1 0))) - (- vertico--total 1) - (- vertico--index 1)))) + (1- vertico--total) + (1- vertico--index)))) (defun vertico-exit (&optional arg) "Exit minibuffer with current candidate or input if prefix ARG is given."