diff options
| author | Sebastien Delafond <seb@debian.org> | 2013-12-29 17:44:50 +0100 |
|---|---|---|
| committer | Sébastien Delafond <sdelafond@gmail.com> | 2014-07-13 13:35:31 +0200 |
| commit | 6c5e25df62a8618951b30a669f875a93c7944e0b (patch) | |
| tree | ddae85aa6440f29d4d0b4efa5ffa3d656900a8e8 /lisp/ob-ditaa.el | |
| parent | 489f1deda8d0ec93810c342b427c1920b8c47cbb (diff) | |
| parent | 52fbfeb04b10aa78f24f339a352fe1161c0b37e4 (diff) | |
Imported Debian patch 8.2.4-1
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-")) |