[nongnu] elpa/mastodon 9dcffebf36 07/11: url-lookup: try shr-url prop before thing-at point

[ELPA Syncer]

branch: elpa/mastodon
commit 9dcffebf366e442d6f69240561a5909e8e8f4da0
Author: marty hiatt <martianhiatus@riseup.net>
Commit: marty hiatt <martianhiatus@riseup.net>

    url-lookup: try shr-url prop before thing-at point
    
    thing at point captures the closing ) of URLs in brackets, which makes
    webfinger fail. maybe shr-url should always get first dibs before
    thing-at-point also?
---
 lisp/mastodon.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lisp/mastodon.el b/lisp/mastodon.el
index 70ab73cf4b..1d071f7439 100644
--- a/lisp/mastodon.el
+++ b/lisp/mastodon.el
@@ -370,8 +370,8 @@ If a status or account is found, load it in `mastodon.el', 
if
 not, just browse the URL in the normal fashion."
   (interactive)
   (let* ((query (or query-url
-                    (thing-at-point-url-at-point)
                     (mastodon-tl--property 'shr-url :no-move)
+                    (thing-at-point-url-at-point)
                     (read-string "Lookup URL: "))))
     (if (and (not force)
              (not (mastodon--fedi-url-p query)))