diff options
author | Eric Schulte <schulte.eric@gmail.com> | 2010-06-11 08:07:19 -0700 |
---|---|---|
committer | Eric Schulte <schulte.eric@gmail.com> | 2010-06-11 08:07:19 -0700 |
commit | a5712e4b0a444702fda9d33b372ae0d93f969c5e (patch) | |
tree | 82808c0133397dfb4350cfd54e6dfa84bbab33c0 | |
parent | cc1c4467913e218d9253a4d7b83b40616034cf20 (diff) | |
download | org-mode-a5712e4b0a444702fda9d33b372ae0d93f969c5e.tar.gz |
babel: can open results which don't start on the first column
* contrib/babel/lisp/org-babel.el (org-babel-open-src-block-result):
now able to handle results which don't start on the first column
-rw-r--r-- | contrib/babel/lisp/org-babel.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/contrib/babel/lisp/org-babel.el b/contrib/babel/lisp/org-babel.el index d1ec6e5..ae36232 100644 --- a/contrib/babel/lisp/org-babel.el +++ b/contrib/babel/lisp/org-babel.el @@ -354,7 +354,8 @@ results already exist." (goto-char (or (and (not re-run) (org-babel-where-is-src-block-result)) (progn (org-babel-execute-src-block) (org-babel-where-is-src-block-result)))) - (end-of-line 1) (forward-char 1) + (end-of-line 1) + (while (looking-at "[\n\r\t\f ]") (forward-char 1)) ;; open the results (if (looking-at org-bracket-link-regexp) ;; file results |