summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorEric Schulte <schulte.eric@gmail.com>2010-05-26 19:44:04 -0600
committerEric Schulte <schulte.eric@gmail.com>2010-05-26 19:44:04 -0600
commit5d52daab1029e43b97ccb16cfac998536d8c8924 (patch)
tree9bda3ffc9e2fa819516fe70d122521a15a5debaf
parent8d78778c89f45f70948b9041dd4bc88c53d58346 (diff)
downloadorg-mode-5d52daab1029e43b97ccb16cfac998536d8c8924.tar.gz
babel: org-babel-execute-buffer is no longer flummoxed by hidden subtrees
-rw-r--r--contrib/babel/lisp/org-babel.el14
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