branch: elpa/hyperdrive
commit f1e8b8b8c9093576549896bc43bed51ba56ed938
Author: Joseph Turner <[email protected]>
Commit: Joseph Turner <[email protected]>
Fix: (h/dir-handler) Fix and-let* typo
---
hyperdrive-dir.el | 6 +++---
1 file changed, 3 insertions(+), 3 deletions(-)
diff --git a/hyperdrive-dir.el b/hyperdrive-dir.el
index 9b06327d803..f62ab679d0b 100644
--- a/hyperdrive-dir.el
+++ b/hyperdrive-dir.el
@@ -53,9 +53,9 @@ If THEN, call it in the directory buffer with no arguments."
(ewoc-filter h/ewoc #'ignore)
(ewoc-set-hf h/ewoc header "Loading...")))
(cl-labels ((goto-entry (entry ewoc)
- (and-let ((node (h/ewoc-find-node ewoc entry
- :predicate #'he/equal-p)))
- (goto-char (ewoc-location node)))))
+ (and-let* ((node (h/ewoc-find-node ewoc entry
+ :predicate #'he/equal-p)))
+ (goto-char (ewoc-location node)))))
(he/api 'get directory-entry :noquery t
;; Get "full" listing with metadata
:headers `(("Accept" . "application/json; metadata=full"))
