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

fix bug: tangling #+headers: lines w/prefix arg

Browse source
This commit is contained in:
Eric Schulte 2013-01-26 13:58:15 -07:00
parent bb40d29b45
commit f52600a439
1 changed files with 8 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
lisp/ob-tangle.el
View file

@ -202,7 +202,14 @@ exported source code blocks by language."
target-file)
(setq target-file
(read-from-minibuffer "Tangle to: " (buffer-file-name)))))
(narrow-to-region (match-beginning 0) (match-end 0)))
(narrow-to-region
(save-match-data
(save-excursion
(goto-char (org-babel-where-is-src-block-head))
(while (and (forward-line -1)
(looking-at org-babel-multi-line-header-regexp)))
(point)))
(match-end 0)))
(save-excursion
(let ((block-counter 0)
(org-babel-default-header-args