diff options
author | Eric Schulte <schulte.eric@gmail.com> | 2010-07-31 14:24:25 -0600 |
---|---|---|
committer | Eric Schulte <schulte.eric@gmail.com> | 2010-07-31 14:24:25 -0600 |
commit | 9a2ea65bc3e48f2630041619f5d2a3dee77b66d1 (patch) | |
tree | 24bf4b4e1c485dc7b16dfa35768fef642f995c09 | |
parent | d035222ce5ec808139f109517336105f739c5f84 (diff) | |
download | org-mode-9a2ea65bc3e48f2630041619f5d2a3dee77b66d1.tar.gz |
ob-python: can now handle VERY long result lines
* lisp/ob-python.el (org-babel-python-table-or-string): can now handle
VERY long result lines
-rw-r--r-- | lisp/ob-python.el | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/lisp/ob-python.el b/lisp/ob-python.el index 2fea466..ab6da3f 100644 --- a/lisp/ob-python.el +++ b/lisp/ob-python.el @@ -125,8 +125,10 @@ Emacs-lisp table, otherwise return the results as a string." (mapcar (lambda (el) (if (equal el 'None) 'hline el)) res) res)) (org-babel-read - (if (or (string-match "^\\[.+\\]$" results) - (string-match "^(.+)$" results)) + (if (or (and (equal (substring results 0 1) "[") + (equal (substring results -2 -1) "]")) + (and (equal (substring results 0 1) "(") + (equal (substring results -2 -1) ")"))) (org-babel-read (concat "'" (replace-regexp-in-string |