diff options
author | Eric Schulte <eric.schulte@gmx.com> | 2012-11-18 22:06:12 -0700 |
---|---|---|
committer | Eric Schulte <eric.schulte@gmx.com> | 2012-11-18 22:06:12 -0700 |
commit | f8a69a4250df2fc0d2b7aa89e7e2c0463e31864a (patch) | |
tree | 86bb534c68dcf557b82e6ffc4aa59d2fb96a8605 | |
parent | 78cdf14939fefe977cf25c9cdeb4a7e8b2901c5d (diff) | |
download | 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.el | 5 |
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)) |