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
This commit is contained in:
Eric Schulte 2010-10-20 11:02:35 -06:00 committed by Dan Davison
parent 5bdc043919
commit b50125a1ac
1 changed files with 3 additions and 4 deletions

View File

@ -803,10 +803,9 @@ end-body --------- point at the end of the body"
(body (match-string 5)) (body (match-string 5))
(beg-body (match-beginning 5)) (beg-body (match-beginning 5))
(end-body (match-end 5))) (end-body (match-end 5)))
(save-match-data ,@body)) ,@body
(goto-char (match-end 0)))) (goto-char end-block))))
(unless visited-p (unless visited-p (kill-buffer to-be-removed))
(kill-buffer to-be-removed))
(goto-char point))) (goto-char point)))
(defvar org-file-properties) (defvar org-file-properties)