buggy plantuml function

[Immanuel Litzroth]

(defun org-babel-plantuml-make-body (body params)
  "Return PlantUML input string.

BODY is the content of the source block and PARAMS is a property list
of source block parameters.  This function relies on the
`org-babel-expand-body:generic' function to extract `:var' entries
from PARAMS and on the `org-babel-variable-assignments:plantuml'
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)))))

expands to assignments if the body starts with @startmindmap?
Immanuel
-- 
-- Researching the dual problem of finding the function that has a
given point as fixpoint.