ob: `substring' comparison instead of regexp matching

* lisp/ob.el (org-babel-script-escape): Use `substring' comparison
instead of regexp matching

Workaround for regexp limitation, e.g.

(string-match
 "^\\[.+\\]$"
 (concat
  "["
  (mapconcat (lambda (i) "x") (number-sequence 1 33500) "")
  "]"))

gives "Stack overflow in regexp matcher" in several current builds.

1 files changed, 4 insertions, 1 deletions

diff --git a/lisp/ob.el b/lisp/ob.el
index aa804cd..d89892f 100644
--- a/lisp/ob.el
+++ b/lisp/ob.el
@@ -1857,7 +1857,10 @@ block but are passed literally to the \"example-block\"."
   "Safely convert tables into elisp lists."
   (let (in-single in-double out)
     (org-babel-read
-     (if (and (stringp str) (string-match "^\\[.+\\]$" str))
+     (if (and (stringp str)
+	      (> (length str) 2)
+	      (string-equal "[" (substring str 0 1))
+	      (string-equal "]" (substring str -1)))
 	 (org-babel-read
 	  (concat
 	   "'"