emacs-elpa-diffs
[Top][All Lists]
Advanced

[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



reply via email to

[Prev in Thread] Current Thread [Next in Thread]