Browse Source

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

Eric Schulte 16 years ago
parent
commit
e247c0d7f3
1 changed files with 1 additions and 1 deletions
  1. 1 1
      lisp/org-babel.el

+ 1 - 1
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)