From e247c0d7f342fbc1a7ba92827797501b9d9202a1 Mon Sep 17 00:00:00 2001 From: Eric Schulte Date: Mon, 3 Aug 2009 08:19:16 -0600 Subject: [PATCH] fixed small bug in org-babel-map-source-blocks --- lisp/org-babel.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lisp/org-babel.el b/lisp/org-babel.el index 1817c80cf..35c2d0568 100644 --- a/lisp/org-babel.el +++ b/lisp/org-babel.el @@ -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)