diff options
| author | marty hiatt <martianhiatus [a t] riseup [d o t] net> | 2022-11-14 10:06:53 +0100 |
|---|---|---|
| committer | marty hiatt <martianhiatus [a t] riseup [d o t] net> | 2022-11-14 11:32:53 +0100 |
| commit | ee9787e2b05878c9db8353d6321a0d04a65b0c4b (patch) | |
| tree | 795245ccfa2db53414cb352c9b9113fcccb127ae /lisp | |
| parent | de458e7865f91f187b1695c889fc77ea47f1497c (diff) | |
remove call to shr-browse-url for non-masto URLs
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/mastodon.el | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/lisp/mastodon.el b/lisp/mastodon.el index b169f00..a61aead 100644 --- a/lisp/mastodon.el +++ b/lisp/mastodon.el @@ -288,9 +288,12 @@ 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)) - (if (equal major-mode 'mastodon-mode) - (shr-browse-url query) ;; keep our shr keymap - (browse-url query)) + ;; this doesn't work as shr-browse-url doesn't take a url arg + ;; and with no args it can't use our read-string query, but only + ;; looks for a url at point + ;; (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 |