From 3e404cb392cab584bdf1f73d099ae0dd1c25708f Mon Sep 17 00:00:00 2001
From: marty hiatt <martianhiatus [a t] riseup [d o t] net>
Date: Mon, 12 Sep 2022 14:56:33 +0200
Subject: url-lookup: shr-browse-url in masto-mode, otherwise browse-url

---
 lisp/mastodon.el | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'lisp')

diff --git a/lisp/mastodon.el b/lisp/mastodon.el
index 969ab36..72043cf 100644
--- a/lisp/mastodon.el
+++ b/lisp/mastodon.el
@@ -283,7 +283,9 @@ not, just browse the URL in the normal fashion."
                     (get-text-property (point) 'shr-url)
                     (read-string "Lookup URL: "))))
     (if (not (mastodon--masto-url-p query))
-        (browse-url query)
+        (if (equal major-mode 'mastodon-mode)
+            (shr-browse-url query) ;; keep our shr keymap
+          (browse-url query))
       (message "Performing lookup...")
       (let* ((url (format "%s/api/v2/search" mastodon-instance-url))
              (param (concat "resolve=t")) ; webfinger
-- 
cgit v1.2.3