From 2b7d79688608a5f328b95610edcdd871278fbd29 Mon Sep 17 00:00:00 2001 From: Carlo Sciolla Date: Tue, 18 Oct 2016 19:25:15 +0200 Subject: [PATCH] Fixed plantuml invocation --- plantuml-mode.el | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) diff --git a/plantuml-mode.el b/plantuml-mode.el index fa345c0..6947bcd 100644 --- a/plantuml-mode.el +++ b/plantuml-mode.el @@ -81,13 +81,13 @@ (defun plantuml-command-line () "Compose the PlantUML command line as a string." - (apply 'concat plantuml-java-command - (mapconcat 'identity (cons plantuml-java-command plantuml-java-args) " "))) + (mapconcat 'identity (cons plantuml-java-command plantuml-java-args) " ")) (defun plantuml-render-command (&rest arguments) "Create a command line to execute PlantUML with arguments (as ARGUMENTS)." (let ((cmd (concat (plantuml-command-line) " " (shell-quote-argument plantuml-jar-path))) (argstring (mapconcat 'identity arguments " "))) + (plantuml-debug (format "Command is %s" cmd)) (concat cmd " " argstring))) ;;; syntax table @@ -138,7 +138,6 @@ (error "Could not find plantuml.jar at %s" plantuml-jar-path)) (with-temp-buffer (let ((cmd (plantuml-render-command "-charset UTF-8 -language"))) - (plantuml-debug (concat "Command is: " cmd)) (shell-command cmd (current-buffer)) (goto-char (point-min))) (let ((found (search-forward ";" nil t))