Update local copy of plantuml-mode
This is now at e7c08c588b/plantuml-mode.el
.
This commit is contained in:
parent
0723f45769
commit
b4621122cc
|
@ -552,11 +552,7 @@ Uses prefix (as PREFIX) to choose where to display it:
|
||||||
(cl-defgeneric plantuml-export-string-to-buffer (exec-mode string buffer)
|
(cl-defgeneric plantuml-export-string-to-buffer (exec-mode string buffer)
|
||||||
"Export STRING to plantuml diagram using the given EXEC-MODE.
|
"Export STRING to plantuml diagram using the given EXEC-MODE.
|
||||||
Use BUFFER to write the diagram to, clearing it first. This
|
Use BUFFER to write the diagram to, clearing it first. This
|
||||||
buffer can be written to a file or be displayed directly.")
|
buffer can be written to a file or be displayed directly."
|
||||||
|
|
||||||
(cl-defmethod plantuml-export-string-to-buffer (exec-mode string buffer)
|
|
||||||
"Fallback method when EXEC-MODE is unknown.
|
|
||||||
STRING and BUFFER are ignored."
|
|
||||||
(ignore string buffer)
|
(ignore string buffer)
|
||||||
(user-error "Exporting with exec-mode %s is not supported (yet)" exec-mode))
|
(user-error "Exporting with exec-mode %s is not supported (yet)" exec-mode))
|
||||||
|
|
||||||
|
@ -615,7 +611,15 @@ only the region will be exported."
|
||||||
|
|
||||||
(message "Exporting to %s ..." export-file-name)
|
(message "Exporting to %s ..." export-file-name)
|
||||||
|
|
||||||
(let ((target-buffer (generate-new-buffer " *temp*")))
|
;; If there's already a buffer visiting that file, use that for the export;
|
||||||
|
;; otherwise create a new buffer.
|
||||||
|
(let ((target-buffer (or (find-buffer-visiting export-file-name)
|
||||||
|
(generate-new-buffer " *temp*"))))
|
||||||
|
;; When the buffer is in image-mode, erasing it's contents is not
|
||||||
|
;; possible, even when disabling `read-only-mode' explicitly. Let's just
|
||||||
|
;; switch to `fundamental-mode' to keep things simple.
|
||||||
|
(with-current-buffer target-buffer
|
||||||
|
(fundamental-mode))
|
||||||
;; We do not use `with-temp-buffer' here, as we want to stay in the
|
;; We do not use `with-temp-buffer' here, as we want to stay in the
|
||||||
;; current buffer containing the plantuml diagram. The reason for this is
|
;; current buffer containing the plantuml diagram. The reason for this is
|
||||||
;; that `planumlt-output-type' is local to the current buffer, and
|
;; that `planumlt-output-type' is local to the current buffer, and
|
||||||
|
@ -632,7 +636,13 @@ only the region will be exported."
|
||||||
;; format bit by bit.
|
;; format bit by bit.
|
||||||
(with-current-buffer target-buffer
|
(with-current-buffer target-buffer
|
||||||
(let ((coding-system-for-write 'binary))
|
(let ((coding-system-for-write 'binary))
|
||||||
(write-file export-file-name))))
|
;; When exporting, we do not want to display the image in Emacs
|
||||||
|
;; itself; as rendering the image in Emacs may take a significant
|
||||||
|
;; amount of time, we try to inhibit the automatic image display
|
||||||
|
;; by binding `image-mode' to `image-mode-as-text'
|
||||||
|
(let ((auto-mode-alist nil)
|
||||||
|
(magic-fallback-mode-alist nil))
|
||||||
|
(write-file export-file-name)))))
|
||||||
|
|
||||||
(if errors-during-export
|
(if errors-during-export
|
||||||
(message "Exporting to %s ... failed (see file for details)" export-file-name)
|
(message "Exporting to %s ... failed (see file for details)" export-file-name)
|
||||||
|
|
Loading…
Reference in New Issue