[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/vertico f587c132c6 2/4: Formatting
From: |
ELPA Syncer |
Subject: |
[elpa] externals/vertico f587c132c6 2/4: Formatting |
Date: |
Thu, 13 Oct 2022 21:58:19 -0400 (EDT) |
branch: externals/vertico
commit f587c132c6410549ccba9eec90da7ff7e845363b
Author: Daniel Mendler <mail@daniel-mendler.de>
Commit: Daniel Mendler <mail@daniel-mendler.de>
Formatting
---
vertico.el | 20 ++++++++------------
1 file changed, 8 insertions(+), 12 deletions(-)
diff --git a/vertico.el b/vertico.el
index ed40d52e72..37db23a7bc 100644
--- a/vertico.el
+++ b/vertico.el
@@ -65,8 +65,7 @@ The value should lie between 0 and vertico-count/2."
:type 'integer)
(defcustom vertico-resize resize-mini-windows
- "How to resize the Vertico minibuffer window.
-See `resize-mini-windows' for documentation."
+ "How to resize the Vertico minibuffer window, see `resize-mini-windows'."
:type '(choice (const :tag "Fixed" nil)
(const :tag "Shrink and grow" t)
(const :tag "Grow-only" grow-only)))
@@ -654,8 +653,7 @@ The function is configured by BY, BSIZE, BINDEX, BPRED and
PRED."
"Return t if INPUT is a valid match."
(or (memq minibuffer--require-match '(nil confirm-after-completion))
(and (equal input "") (or (car-safe minibuffer-default)
minibuffer-default))
- (test-completion input minibuffer-completion-table
- minibuffer-completion-predicate)
+ (test-completion input minibuffer-completion-table
minibuffer-completion-predicate)
(if (eq minibuffer--require-match 'confirm)
(eq (ignore-errors (read-char "Confirm")) 13)
(and (minibuffer-message "Match required") nil))))
@@ -676,14 +674,12 @@ When the prefix argument is 0, the group order is reset."
(interactive "p")
(when (cdr vertico--groups)
(if (setq vertico--lock-groups (not (eq n 0)))
- (setq vertico--groups
- (vertico--cycle vertico--groups
- (let ((len (length vertico--groups)))
- (- len (mod (- (or n 1)) len))))
- vertico--all-groups
- (vertico--cycle vertico--all-groups
- (seq-position vertico--all-groups
- (car vertico--groups))))
+ (setq vertico--groups (vertico--cycle vertico--groups
+ (let ((len (length
vertico--groups)))
+ (- len (mod (- (or n 1))
len))))
+ vertico--all-groups (vertico--cycle vertico--all-groups
+ (seq-position
vertico--all-groups
+ (car
vertico--groups))))
(setq vertico--groups nil
vertico--all-groups nil))
(setq vertico--lock-candidate nil