mirror/org-mode
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-11-23 07:18:53 +00:00
Code

babel: Use org-babel-map-src-blocks' in org-babel-execute-buffer'

Browse Source 
* ob.el (org-babel-execute-buffer): Re-implement using
	`org-babel-map-src-blocks'
This commit is contained in:
Dan Davison 2010-09-23 19:09:19 +01:00
parent 9ec705cb57
commit d398331b3f
1 changed files with 3 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
lisp/ob.el
View File

@ -570,15 +570,9 @@ results already exist."
Call `org-babel-execute-src-block' on every source block in
the current buffer."
(interactive "P")
(save-excursion
(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))))))
(org-save-outline-visibility t
(org-babel-map-src-blocks nil
(org-babel-execute-src-block arg))))
;;;###autoload
(defun org-babel-execute-subtree (&optional arg)