diff options
| author | marty hiatt <martianhiatus@riseup.net> | 2024-03-13 10:48:23 +0100 |
|---|---|---|
| committer | marty hiatt <martianhiatus@riseup.net> | 2024-03-13 10:48:23 +0100 |
| commit | 79a3f3534bb07d28c2f96eecd2d8e0caf9c15200 (patch) | |
| tree | f0a92f6b38ccc447019ade1089ce007d2ee92812 | |
| parent | 7d0a20ac0ca871eff153cb7bc0e0ceda24a4858f (diff) | |
process-full-sized-image-response - inhibit read only
| -rw-r--r-- | lisp/mastodon-media.el | 13 |
1 files changed, 7 insertions, 6 deletions
diff --git a/lisp/mastodon-media.el b/lisp/mastodon-media.el index 0014a44..62a41de 100644 --- a/lisp/mastodon-media.el +++ b/lisp/mastodon-media.el @@ -195,12 +195,13 @@ STATUS-PLIST is a plist of status events as per `url-retrieve'." (setf (image-property image :max-width) (window-pixel-width)) (with-current-buffer (get-buffer-create "*masto-image*") - (erase-buffer) - (insert-image image str) - (special-mode) ; prevent image-mode loop bug - (image-mode) - (goto-char (point-min)) - (switch-to-buffer-other-window (current-buffer)))))) + (let ((inhibit-read-only t)) + (erase-buffer) + (insert-image image str) + (special-mode) ; prevent image-mode loop bug + (image-mode) + (goto-char (point-min)) + (switch-to-buffer-other-window (current-buffer))))))) (defun mastodon-media--load-image-from-url (url media-type start region-length) "Take a URL and MEDIA-TYPE and load the image asynchronously. |