summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorEric Schulte <eric.schulte@gmx.com>2012-11-19 05:06:12 (GMT)
committer Eric Schulte <eric.schulte@gmx.com>2012-11-19 05:06:12 (GMT)
commitf8a69a4250df2fc0d2b7aa89e7e2c0463e31864a (patch)
tree86bb534c68dcf557b82e6ffc4aa59d2fb96a8605
parent78cdf14939fefe977cf25c9cdeb4a7e8b2901c5d (diff)
downloadorg-mode-f8a69a4250df2fc0d2b7aa89e7e2c0463e31864a.zip
org-mode-f8a69a4250df2fc0d2b7aa89e7e2c0463e31864a.tar.gz
passing as many tests as before
* lisp/ob-emacs-lisp.el (org-babel-execute:emacs-lisp): Better about when to fully escape the results or just print them close to verbatim.
-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 e2e4c6c..3ba14f6 100644
--- a/lisp/ob-emacs-lisp.el
+++ b/lisp/ob-emacs-lisp.el
@@ -59,7 +59,10 @@
(org-babel-result-cond (cdr (assoc :result-params params))
(let ((print-level nil)
(print-length nil))
- (format "%S" result))
+ (if (or (member "scalar" (cdr (assoc :result-params params)))
+ (member "verbatim" (cdr (assoc :result-params params))))
+ (format "%S" result)
+ (format "%s" result)))
(org-babel-reassemble-table
result
(org-babel-pick-name (cdr (assoc :colname-names params))