[nongnu] elpa/hyperdrive 6f56f99d7d 071/102: Fix: (-org--open-at-point) Only call -open on hyper:// links

[ELPA Syncer]

branch: elpa/hyperdrive
commit 6f56f99d7d31ff95bcd2de356201ea6479643958
Author: Joseph Turner <joseph@ushin.org>
Commit: Adam Porter <adam@alphapapa.net>

    Fix: (-org--open-at-point) Only call -open on hyper:// links
---
 hyperdrive-org.el | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/hyperdrive-org.el b/hyperdrive-org.el
index 6ce7c79933..c8ee2ed0a3 100644
--- a/hyperdrive-org.el
+++ b/hyperdrive-org.el
@@ -128,8 +128,9 @@ TARGET may be a CUSTOM_ID or a headline."
 
 Added to `org-open-at-point-functions' in order to short-circuit
 the logic for handling links of \"file\" type."
-  (when h/mode
-    (h/open (h/org--link-entry-at-point))))
+  (when-let ((h/mode)
+             (link (h/org--link-entry-at-point)))
+    (h/open link)))
 
 (defun h/org--link-entry-at-point ()
   "Return a hyperdrive entry for the Org link at point."