From 0dc21c9c3ed39b489e9220864fa47a1f9daade6a Mon Sep 17 00:00:00 2001
From: marty hiatt <martianhiatus@riseup.net>
Date: Tue, 5 Mar 2024 18:45:32 +0100
Subject: optional full-size image in emacs, RET as fallback for browse-url too

---
 lisp/mastodon-media.el | 9 +++++++--
 1 file changed, 7 insertions(+), 2 deletions(-)

(limited to 'lisp/mastodon-media.el')

diff --git a/lisp/mastodon-media.el b/lisp/mastodon-media.el
index 9014add..ff40633 100644
--- a/lisp/mastodon-media.el
+++ b/lisp/mastodon-media.el
@@ -205,8 +205,13 @@ IMAGE-OPTIONS are the precomputed options to apply to the image."
           (erase-buffer)
           (insert " ")
           (when image
-            (put-text-property (point-min) (point-max)
-                               'display image)
+            (add-text-properties (point-min) (point-max)
+                                 `( display ,image
+                                    keymap ,(if (boundp 'shr-image-map)
+                                                shr-image-map
+                                              shr-map)
+                                    image-url ,url
+                                    shr-url ,url))
             (image-mode)
             (goto-char (point-min))
             (switch-to-buffer-other-window (current-buffer))))))))
-- 
cgit v1.2.3