summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorNicolas Goaziou <mail@nicolasgoaziou.fr>2019-12-04 18:45:18 +0100
committerNicolas Goaziou <mail@nicolasgoaziou.fr>2019-12-04 18:45:18 +0100
commit18ddc6436255d34f8c67be9a4f6f970a50f583b9 (patch)
tree466700a165bd1ff5571e8686bb9f904046ba56e0
parent46319b5f69e2ef912fa6024a558a6e2b5b14ed48 (diff)
downloadorg-mode-18ddc6436255d34f8c67be9a4f6f970a50f583b9.tar.gz
ob-plantuml: Fix typo
* lisp/ob-plantuml.el (org-babel-plantuml-make-body): Fix typo.
-rw-r--r--lisp/ob-plantuml.el9
1 files changed, 5 insertions, 4 deletions
diff --git a/lisp/ob-plantuml.el b/lisp/ob-plantuml.el
index 09c9a33..28c7b85 100644
--- a/lisp/ob-plantuml.el
+++ b/lisp/ob-plantuml.el
@@ -69,10 +69,11 @@ function to convert variables to PlantUML assignments.
If BODY does not contain @startXXX ... @endXXX clauses, @startuml
... @enduml will be added."
- (let ((assignments (org-babel-variable-assignments:plantuml params)))
- (if (string-prefix-p "@start" body t) assignments
- (format "@startuml\n%s\n@enduml"
- (org-babel-expand-body:generic body params assignments)))))
+ (let ((full-body
+ (org-babel-expand-body:generic
+ body params (org-babel-variable-assignments:plantuml params))))
+ (if (string-prefix-p "@start" body t) full-body
+ (format "@startuml\n%s\n@enduml" full-body))))
(defun org-babel-execute:plantuml (body params)
"Execute a block of plantuml code with org-babel.