From b50125a1ac1aacba84162131790fc684d5d21298 Mon Sep 17 00:00:00 2001 From: Eric Schulte Date: Wed, 20 Oct 2010 11:02:35 -0600 Subject: [PATCH] fixed minor bug in and improved efficiency of org-babel-map-src-blocks * lisp/ob.el (org-babel-map-src-blocks): fixed minor bug in and improved efficiency of org-babel-map-src-blocks --- lisp/ob.el | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) diff --git a/lisp/ob.el b/lisp/ob.el index 6403ade6e..c92db1d8b 100644 --- a/lisp/ob.el +++ b/lisp/ob.el @@ -803,10 +803,9 @@ end-body --------- point at the end of the body" (body (match-string 5)) (beg-body (match-beginning 5)) (end-body (match-end 5))) - (save-match-data ,@body)) - (goto-char (match-end 0)))) - (unless visited-p - (kill-buffer to-be-removed)) + ,@body + (goto-char end-block)))) + (unless visited-p (kill-buffer to-be-removed)) (goto-char point))) (defvar org-file-properties)