diff options
author | Eric Schulte <schulte.eric@gmail.com> | 2010-05-26 19:44:04 -0600 |
---|---|---|
committer | Eric Schulte <schulte.eric@gmail.com> | 2010-05-26 19:44:04 -0600 |
commit | 5d52daab1029e43b97ccb16cfac998536d8c8924 (patch) | |
tree | 9bda3ffc9e2fa819516fe70d122521a15a5debaf | |
parent | 8d78778c89f45f70948b9041dd4bc88c53d58346 (diff) | |
download | org-mode-5d52daab1029e43b97ccb16cfac998536d8c8924.tar.gz |
babel: org-babel-execute-buffer is no longer flummoxed by hidden subtrees
-rw-r--r-- | contrib/babel/lisp/org-babel.el | 14 |
1 files changed, 8 insertions, 6 deletions
diff --git a/contrib/babel/lisp/org-babel.el b/contrib/babel/lisp/org-babel.el index 1c02a30..5c45ebb 100644 --- a/contrib/babel/lisp/org-babel.el +++ b/contrib/babel/lisp/org-babel.el @@ -371,12 +371,14 @@ results already exist." the current buffer." (interactive "P") (save-excursion - (goto-char (point-min)) - (while (re-search-forward org-babel-src-block-regexp nil t) - (let ((pos-end (match-end 0))) - (goto-char (match-beginning 0)) - (org-babel-execute-src-block arg) - (goto-char pos-end))))) + (org-save-outline-visibility t + (goto-char (point-min)) + (show-all) + (while (re-search-forward org-babel-src-block-regexp nil t) + (let ((pos-end (match-end 0))) + (goto-char (match-beginning 0)) + (org-babel-execute-src-block arg) + (goto-char pos-end)))))) (defun org-babel-execute-subtree (&optional arg) "Call `org-babel-execute-src-block' on every source block in |