diff options
author | Eric Schulte <schulte.eric@gmail.com> | 2011-04-10 16:29:14 -0600 |
---|---|---|
committer | Eric Schulte <schulte.eric@gmail.com> | 2011-04-10 16:29:14 -0600 |
commit | 2c8e964b70bf22ae70ef824b422fb12e1783f8a2 (patch) | |
tree | 094834825010a87c9896059909202c08c2cc7828 | |
parent | 92b603c8920623d9c581e2c58809ad2c73fcd475 (diff) | |
download | org-mode-2c8e964b70bf22ae70ef824b422fb12e1783f8a2.tar.gz |
ob-emacs-lisp: now supports :results output
* lisp/ob-emacs-lisp.el (org-babel-execute:emacs-lisp): Now supports
":results output".
-rw-r--r-- | lisp/ob-emacs-lisp.el | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/lisp/ob-emacs-lisp.el b/lisp/ob-emacs-lisp.el index 4b855e6..9e7dc72 100644 --- a/lisp/ob-emacs-lisp.el +++ b/lisp/ob-emacs-lisp.el @@ -57,7 +57,10 @@ "Execute a block of emacs-lisp code with Babel." (save-window-excursion (org-babel-reassemble-table - (eval (read (format "(progn %s)" + (eval (read (format (if (member "output" + (cdr (assoc :result-params params))) + "(with-output-to-string %s)" + "(progn %s)") (org-babel-expand-body:emacs-lisp body params)))) (org-babel-pick-name (cdr (assoc :colname-names params)) (cdr (assoc :colnames params))) |