diff options
| author | Sébastien Delafond <sdelafond@gmail.com> | 2014-07-13 13:35:31 +0200 |
|---|---|---|
| committer | Sébastien Delafond <sdelafond@gmail.com> | 2014-07-13 13:35:31 +0200 |
| commit | 52fbfeb04b10aa78f24f339a352fe1161c0b37e4 (patch) | |
| tree | a3b147a3a2e4bb39c4ae36c0f442c6137ae506e2 /lisp/ob-ditaa.el | |
| parent | 40ce6b75e6245659a3a14622356e32e7dd1125dd (diff) | |
Imported Upstream version 8.2.4
Diffstat (limited to 'lisp/ob-ditaa.el')
| -rw-r--r-- | lisp/ob-ditaa.el | 9 |
1 files changed, 4 insertions, 5 deletions
diff --git a/lisp/ob-ditaa.el b/lisp/ob-ditaa.el index 60ab8c5..36681d0 100644 --- a/lisp/ob-ditaa.el +++ b/lisp/ob-ditaa.el @@ -82,11 +82,10 @@ Do not leave leading or trailing spaces in this string." "Execute a block of Ditaa code with org-babel. This function is called by `org-babel-execute-src-block'." (let* ((result-params (split-string (or (cdr (assoc :results params)) ""))) - (out-file ((lambda (el) - (or el - (error - "ditaa code block requires :file header argument"))) - (cdr (assoc :file params)))) + (out-file (let ((el (cdr (assoc :file params)))) + (or el + (error + "ditaa code block requires :file header argument")))) (cmdline (cdr (assoc :cmdline params))) (java (cdr (assoc :java params))) (in-file (org-babel-temp-file "ditaa-")) |