Untabified
This commit is contained in:
parent
408ea2d48b
commit
64af0f1cc3
|
@ -82,7 +82,7 @@
|
||||||
(defun plantuml-render-command (&rest arguments)
|
(defun plantuml-render-command (&rest arguments)
|
||||||
"Create a command line to execute PlantUML with arguments (as ARGUMENTS)."
|
"Create a command line to execute PlantUML with arguments (as ARGUMENTS)."
|
||||||
(let* ((cmd-list (append plantuml-java-args (list plantuml-jar-path) arguments))
|
(let* ((cmd-list (append plantuml-java-args (list plantuml-jar-path) arguments))
|
||||||
(cmd (mapconcat 'identity cmd-list "|")))
|
(cmd (mapconcat 'identity cmd-list "|")))
|
||||||
(plantuml-debug (format "Command is [%s]" cmd))
|
(plantuml-debug (format "Command is [%s]" cmd))
|
||||||
cmd-list))
|
cmd-list))
|
||||||
|
|
||||||
|
@ -134,7 +134,7 @@
|
||||||
(error "Could not find plantuml.jar at %s" plantuml-jar-path))
|
(error "Could not find plantuml.jar at %s" plantuml-jar-path))
|
||||||
(with-temp-buffer
|
(with-temp-buffer
|
||||||
(let ((cmd-args (append (list plantuml-java-command nil t nil)
|
(let ((cmd-args (append (list plantuml-java-command nil t nil)
|
||||||
(plantuml-render-command "-charset" "UTF-8" "-language"))))
|
(plantuml-render-command "-charset" "UTF-8" "-language"))))
|
||||||
(apply 'call-process cmd-args)
|
(apply 'call-process cmd-args)
|
||||||
(goto-char (point-min)))
|
(goto-char (point-min)))
|
||||||
(let ((found (search-forward ";" nil t))
|
(let ((found (search-forward ";" nil t))
|
||||||
|
|
Loading…
Reference in New Issue