mirror of
https://git.savannah.gnu.org/git/emacs/org-mode.git
synced 2024-09-18 10:10:01 +00:00
fixed small bug in org-babel-map-source-blocks
This commit is contained in:
parent
b97ca2047d
commit
e247c0d7f3
|
@ -307,7 +307,7 @@ of the following form. (language body header-arguments-alist)"
|
||||||
(defmacro org-babel-map-source-blocks (file &rest body)
|
(defmacro org-babel-map-source-blocks (file &rest body)
|
||||||
"Evaluate BODY forms on each source-block in FILE."
|
"Evaluate BODY forms on each source-block in FILE."
|
||||||
(declare (indent 1))
|
(declare (indent 1))
|
||||||
`(let ((visited-p (get-buffer (file-name-nondirectory file))))
|
`(let ((visited-p (get-buffer (file-name-nondirectory ,file))))
|
||||||
(save-window-excursion
|
(save-window-excursion
|
||||||
(find-file ,file) (goto-char (point-min))
|
(find-file ,file) (goto-char (point-min))
|
||||||
(while (re-search-forward org-babel-src-block-regexp nil t)
|
(while (re-search-forward org-babel-src-block-regexp nil t)
|
||||||
|
|
Loading…
Reference in a new issue