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:33:05 +0100 |
| commit | 75d30456f71dc16c0770dae98115c9fa5b514f4f (patch) | |
| tree | 1ac8662455bf8f6e125869f3ccc95e2a06cbbdda /lisp | |
| parent | 4cd72d73597ee6a5098bdbfb4b22d302e02e618c (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 da2d442..86afee2 100644 --- a/lisp/mastodon.el +++ b/lisp/mastodon.el @@ -287,9 +287,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 |