aboutsummaryrefslogtreecommitdiff
path: root/lisp/mastodon-media.el
diff options
context:
space:
mode:
Diffstat (limited to 'lisp/mastodon-media.el')
-rw-r--r--lisp/mastodon-media.el9
1 files changed, 7 insertions, 2 deletions
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))))))))