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.

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))