From 753d1402d8fb273027159a619f674eb1306ff30c Mon Sep 17 00:00:00 2001 From: Eric Schulte Date: Tue, 16 Feb 2010 13:34:09 -0700 Subject: [PATCH] babel: avoid infinite loop in org-babel-execute-buffer -- Thanks to Stephan Schmitt --- contrib/babel/lisp/org-babel.el | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/contrib/babel/lisp/org-babel.el b/contrib/babel/lisp/org-babel.el index 01b730d54..7fe4302d9 100644 --- a/contrib/babel/lisp/org-babel.el +++ b/contrib/babel/lisp/org-babel.el @@ -300,9 +300,10 @@ the current buffer." (save-excursion (goto-char (point-min)) (while (re-search-forward org-babel-src-block-regexp nil t) - (goto-char (match-beginning 0)) - (org-babel-execute-src-block arg) - (goto-char (match-end 0))))) + (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