From mboxrd@z Thu Jan 1 00:00:00 1970 From: "Eric Schulte" Subject: Re: [PATCH] avoid infinite loop in org-babel-execute-buffer Date: Tue, 16 Feb 2010 13:36:15 -0700 Message-ID: <87hbpgx6io.fsf@gmail.com> References: <1266318405-15398-1-git-send-email-drmabuse@cs.tu-berlin.de> Mime-Version: 1.0 Content-Type: text/plain; charset=us-ascii Return-path: Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.43) id 1Nhmza-000897-Sx for emacs-orgmode@gnu.org; Wed, 17 Feb 2010 11:43:14 -0500 Received: from [140.186.70.92] (port=44429 helo=eggs.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1NhmzZ-00088q-6U for emacs-orgmode@gnu.org; Wed, 17 Feb 2010 11:43:13 -0500 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.69) (envelope-from ) id 1NhmzV-0003nk-SQ for emacs-orgmode@gnu.org; Wed, 17 Feb 2010 11:43:12 -0500 Received: from mail-pz0-f183.google.com ([209.85.222.183]:57938) by eggs.gnu.org with esmtp (Exim 4.69) (envelope-from ) id 1NhU9b-0006XF-HY for emacs-orgmode@gnu.org ; Tue, 16 Feb 2010 15:36:19 -0500 Received: by pzk13 with SMTP id 13so528351pzk.24 for ; Tue, 16 Feb 2010 12:36:18 -0800 (PST) In-Reply-To: <1266318405-15398-1-git-send-email-drmabuse@cs.tu-berlin.de> (Stephan Schmitt's message of "Tue, 16 Feb 2010 12:06:45 +0100") List-Id: "General discussions about Org-mode." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Sender: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org To: Stephan Schmitt Cc: emacs-orgmode@gnu.org Applied, Thanks! -- Eric Stephan Schmitt writes: > --- > contrib/babel/lisp/org-babel.el | 7 ++++--- > 1 files changed, 4 insertions(+), 3 deletions(-) > > diff --git a/contrib/babel/lisp/org-babel.el b/contrib/babel/lisp/org-babel.el > index 01b730d..7fe4302 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