mirrors/org-mode
0
0
Fork 1
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-08-30 05:43:27 +00:00
Code Releases Activity

fixed small bug in org-babel-map-source-blocks

Browse source
This commit is contained in:
Eric Schulte 2009-08-03 08:19:16 -06:00
parent b97ca2047d
commit e247c0d7f3
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
lisp/org-babel.el
View file

@ -307,7 +307,7 @@ of the following form. (language body header-arguments-alist)"
(defmacro org-babel-map-source-blocks (file &rest body)
"Evaluate BODY forms on each source-block in FILE."
(declare (indent 1))
`(let ((visited-p (get-buffer (file-name-nondirectory file))))
`(let ((visited-p (get-buffer (file-name-nondirectory ,file))))
(save-window-excursion
(find-file ,file) (goto-char (point-min))
(while (re-search-forward org-babel-src-block-regexp nil t)