Expand file names before any `shell-quote-argument` happens to support ~ in paths

This commit is contained in:
Carlo Sciolla 2016-11-11 09:12:58 +01:00
parent 64af0f1cc3
commit 673e524443
No known key found for this signature in database
GPG Key ID: BA5D71E6F3C580C1
1 changed files with 2 additions and 2 deletions

View File

@ -81,7 +81,7 @@
(defun plantuml-render-command (&rest 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 (expand-file-name plantuml-jar-path)) arguments))
(cmd (mapconcat 'identity cmd-list "|")))
(plantuml-debug (format "Command is [%s]" cmd))
cmd-list))
@ -217,7 +217,7 @@ default output type for new buffers."
`(start-process "PLANTUML" ,buf
plantuml-java-command
,@plantuml-java-args
(shell-quote-argument plantuml-jar-path)
(shell-quote-argument (expand-file-name plantuml-jar-path))
(plantuml-output-type-opt) "-p"))
(defun plantuml-preview-string (prefix string)