diff options
Diffstat (limited to 'lisp/mastodon-media.el')
| -rw-r--r-- | lisp/mastodon-media.el | 9 |
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)))))))) |