Fix subsequent previews

image-mode marks buffer parts as read-only, essentially disallowing (erase-buffer).
This commit is contained in:
Bram Schoenmakers 2022-10-14 16:23:57 +02:00
parent 2134815c6c
commit 40af3bde4f
1 changed files with 4 additions and 4 deletions

View File

@ -483,10 +483,10 @@ Put the result into buffer BUF, selecting the window according to PREFIX:
(defun plantuml-preview-string (prefix string) (defun plantuml-preview-string (prefix string)
"Preview diagram from PlantUML sources (as STRING), using prefix (as PREFIX) "Preview diagram from PlantUML sources (as STRING), using prefix (as PREFIX)
to choose where to display it." to choose where to display it."
(let ((b (get-buffer plantuml-preview-buffer))) (when-let ((b (get-buffer plantuml-preview-buffer))
(when b (inhibit-read-only t))
(with-current-buffer b (with-current-buffer b
(erase-buffer)))) (erase-buffer)))
(let* ((imagep (and (display-images-p) (let* ((imagep (and (display-images-p)
(plantuml-is-image-output-p))) (plantuml-is-image-output-p)))