Prechádzať zdrojové kódy

Merge branch 'master' of git://repo.or.cz/org-mode

Dan Davison 14 rokov pred
rodič
commit
a008d84163
1 zmenil súbory, kde vykonal 8 pridanie a 6 odobranie
  1. 8 6
      lisp/ob-plantuml.el

+ 8 - 6
lisp/ob-plantuml.el

@@ -57,12 +57,14 @@ This function is called by `org-babel-execute-src-block'."
 	 (out-file (cdr (assoc :file params)))
 	 (cmdline (cdr (assoc :cmdline params)))
 	 (in-file (org-babel-temp-file "plantuml-"))
-	 (cmd (concat "java -jar "
-		      (shell-quote-argument org-plantuml-jar-path)
-		      " -p " cmdline " < "
-		      (shell-quote-argument in-file)
-		      " > "
-		      (shell-quote-argument out-file))))
+	 (cmd (if (not org-plantuml-jar-path)
+		  (error "`org-plantuml-jar-path' is not set")
+		(concat "java -jar "
+			(shell-quote-argument org-plantuml-jar-path)
+			" -p " cmdline " < "
+			(shell-quote-argument in-file)
+			" > "
+			(shell-quote-argument out-file)))))
     (unless (file-exists-p org-plantuml-jar-path)
       (error "Could not find plantuml.jar at %s" org-plantuml-jar-path))
     (with-temp-file in-file (insert (concat "@startuml\n" body "\n@enduml")))