branch: elpa/hyperdrive
commit 42048ef8bc7e568f9f1e1fa82c9f70b06a4d574d
Author: Joseph Turner <[email protected]>
Commit: Joseph Turner <[email protected]>
Fix: (h/at-point) Fix when-let* syntax
Fix regression introduced in f22465e9 * Tidy: Replace obsolete
when-let with when-let* and and-let
Reported-by: https://sr.ht/~linj
---
hyperdrive-lib.el | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/hyperdrive-lib.el b/hyperdrive-lib.el
index 0900902a93..652943ab4b 100644
--- a/hyperdrive-lib.el
+++ b/hyperdrive-lib.el
@@ -1488,7 +1488,7 @@ version."
"Return `hyperdrive' at point, optionally given EVENT."
(unless (listp event) ;; Avoid errors.
(cl-return-from h/at-point))
- (when-let* (hyperdrive (get-text-property (point) 'hyperdrive))
+ (when-let* ((hyperdrive (get-text-property (point) 'hyperdrive)))
(cl-return-from h/at-point hyperdrive))
(pcase (cadadr event) ;; Image id from peer graph image map
((and (rx (group (= 52 alphanumeric))) public-key)
