[nongnu] elpa/hyperdrive 04de0cb01a 44/82: Change: (hyperdrive--org-normalize-link) Check search-option first

[ELPA Syncer]

branch: elpa/hyperdrive
commit 04de0cb01a42526aa99f879bdd5f231dae38b120
Author: Joseph Turner <joseph@ushin.org>
Commit: Joseph Turner <joseph@ushin.org>

    Change: (hyperdrive--org-normalize-link)  Check search-option first
---
 hyperdrive-org.el | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/hyperdrive-org.el b/hyperdrive-org.el
index 2fe41bf38c..4e7b3b5181 100644
--- a/hyperdrive-org.el
+++ b/hyperdrive-org.el
@@ -189,6 +189,11 @@ FIXME: Docstring, maybe move details from 
`hyperdrive-org-link-full-url'."
          (host-format '(public-key)) (with-path t) (with-protocol t)
          fragment-prefix)
 
+    (when (and search-option
+               (hyperdrive-entry-equal-p hyperdrive-current-entry 
target-entry))
+      ;; Search option alone
+      (cl-return-from hyperdrive--org-normalize-link search-option))
+
     (when (or hyperdrive-org-link-full-url
               (not (hyperdrive-entry-hyperdrive-equal-p
                     hyperdrive-current-entry target-entry)))
@@ -201,11 +206,6 @@ FIXME: Docstring, maybe move details from 
`hyperdrive-org-link-full-url'."
          :with-path with-path
          :with-protocol with-protocol :host-format host-format)))
 
-    (when (and search-option
-               (hyperdrive-entry-equal-p hyperdrive-current-entry 
target-entry))
-      ;; Search option alone
-      (cl-return-from hyperdrive--org-normalize-link search-option))
-
     (let ((adaptive-target-p
            ;; See the `adaptive' option in `org-link-file-path-type'.
            (string-prefix-p