[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/vertico eba9e47947: Prefer if-let
From: |
ELPA Syncer |
Subject: |
[elpa] externals/vertico eba9e47947: Prefer if-let |
Date: |
Sat, 14 Jan 2023 23:59:11 -0500 (EST) |
branch: externals/vertico
commit eba9e47947f2ea24c6b1c48b1c9475c220fc24a7
Author: Daniel Mendler <mail@daniel-mendler.de>
Commit: Daniel Mendler <mail@daniel-mendler.de>
Prefer if-let
---
extensions/vertico-directory.el | 16 ++++++++--------
1 file changed, 8 insertions(+), 8 deletions(-)
diff --git a/extensions/vertico-directory.el b/extensions/vertico-directory.el
index 7396f53ca9..0c00a6220f 100644
--- a/extensions/vertico-directory.el
+++ b/extensions/vertico-directory.el
@@ -45,14 +45,14 @@
(defun vertico-directory-enter ()
"Enter directory or exit completion with current candidate."
(interactive)
- (if-let* (((>= vertico--index 0))
- ((eq 'file (vertico--metadata-get 'category)))
- ;; Check vertico--base for stepwise file path completion
- ((not (equal vertico--base "")))
- (cand (vertico--candidate))
- ((or (string-suffix-p "/" cand)
- (and (vertico--remote-p cand)
- (string-suffix-p ":" cand)))))
+ (if-let (((>= vertico--index 0))
+ ((eq 'file (vertico--metadata-get 'category)))
+ ;; Check vertico--base for stepwise file path completion
+ ((not (equal vertico--base "")))
+ (cand (vertico--candidate))
+ ((or (string-suffix-p "/" cand)
+ (and (vertico--remote-p cand)
+ (string-suffix-p ":" cand)))))
(progn
;; Handle ./ and ../ manually instead of via `expand-file-name' and
;; `abbreviate-file-name', such that we don't accidentially perform
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [elpa] externals/vertico eba9e47947: Prefer if-let,
ELPA Syncer <=