ob: If escaped return value doesn't parse cleanly, then return it literally.

* lisp/ob.el (org-babel-script-escape): If script escaped value doesn't parse cleanly, then return it literally.
2011-02-27 14:29:01 -07:00 · 2011-02-27 14:29:01 -07:00 · cfcf493c29
parent 1d1654896e
commit cfcf493c29
1 changed files with 1 additions and 1 deletions
--- a/lisp/ob.el
+++ b/lisp/ob.el
@ -1875,7 +1875,7 @@ block but are passed literally to the \"example-block\"."
 (defun org-babel-script-escape (str)
  "Safely convert tables into elisp lists."
  (let (in-single in-double out)
-    (org-babel-read
+    ((lambda (escaped) (condition-case nil (org-babel-read escaped) (error escaped)))
     (if (and (stringp str)
 	      (> (length str) 2)
 	      (string-equal "[" (substring str 0 1))