[nongnu] elpa/mastodon 3cc43ddbc9 3/8: add eww--url-at-point to thing-at-point-provider-alist

[ELPA Syncer]

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

    add eww--url-at-point to thing-at-point-provider-alist
---
 lisp/mastodon.el | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/lisp/mastodon.el b/lisp/mastodon.el
index 7a04c87c13..4928bf1d26 100644
--- a/lisp/mastodon.el
+++ b/lisp/mastodon.el
@@ -463,7 +463,12 @@ Calls `mastodon-tl--get-buffer-type', which see."
       (mastodon-toot--enable-custom-emoji)))
   (mastodon-profile--fetch-server-account-settings)
   (when mastodon-tl--highlight-current-toot
-    (cursor-face-highlight-mode))) ; 29.1
+    (cursor-face-highlight-mode)) ; 29.1
+  ;; make `thing-at-point' functions work:
+  (setq-local thing-at-point-provider-alist
+              (append thing-at-point-provider-alist
+                      '((url . eww--url-at-point)))))
+
 
 ;;;###autoload
 (add-hook 'mastodon-mode-hook #'mastodon-mode-hook-fun)