From 79a3f3534bb07d28c2f96eecd2d8e0caf9c15200 Mon Sep 17 00:00:00 2001 From: marty hiatt Date: Wed, 13 Mar 2024 10:48:23 +0100 Subject: process-full-sized-image-response - inhibit read only --- lisp/mastodon-media.el | 13 +++++++------ 1 file 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. -- cgit v1.2.3