summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorEric Schulte <schulte.eric@gmail.com>2011-04-10 16:29:14 -0600
committerEric Schulte <schulte.eric@gmail.com>2011-04-10 16:29:14 -0600
commit2c8e964b70bf22ae70ef824b422fb12e1783f8a2 (patch)
tree094834825010a87c9896059909202c08c2cc7828
parent92b603c8920623d9c581e2c58809ad2c73fcd475 (diff)
downloadorg-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.el5
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)))