Expand file names before any `shell-quote-argument` happens to support ~ in paths
This commit is contained in:
parent
64af0f1cc3
commit
673e524443
|
@ -81,7 +81,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 (expand-file-name 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))
|
||||||
|
@ -217,7 +217,7 @@ default output type for new buffers."
|
||||||
`(start-process "PLANTUML" ,buf
|
`(start-process "PLANTUML" ,buf
|
||||||
plantuml-java-command
|
plantuml-java-command
|
||||||
,@plantuml-java-args
|
,@plantuml-java-args
|
||||||
(shell-quote-argument plantuml-jar-path)
|
(shell-quote-argument (expand-file-name plantuml-jar-path))
|
||||||
(plantuml-output-type-opt) "-p"))
|
(plantuml-output-type-opt) "-p"))
|
||||||
|
|
||||||
(defun plantuml-preview-string (prefix string)
|
(defun plantuml-preview-string (prefix string)
|
||||||
|
|
Loading…
Reference in New Issue