passing as many tests as before
authorEric Schulte <eric.schulte@gmx.com>
Mon, 19 Nov 2012 05:06:12 +0000 (18 22:06 -0700)
committerEric Schulte <eric.schulte@gmx.com>
Mon, 19 Nov 2012 05:06:12 +0000 (18 22:06 -0700)
* 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.

lisp/ob-emacs-lisp.el

index e2e4c6c..3ba14f6 100644 (file)
        (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))