From f52600a43908d5b246901780b9a761e477ec5604 Mon Sep 17 00:00:00 2001 From: Eric Schulte Date: Sat, 26 Jan 2013 13:58:15 -0700 Subject: [PATCH] fix bug: tangling #+headers: lines w/prefix arg --- lisp/ob-tangle.el | 9 ++++++++- 1 file changed, 8 insertions(+), 1 deletion(-) diff --git a/lisp/ob-tangle.el b/lisp/ob-tangle.el index 0db43359e..210de2144 100644 --- a/lisp/ob-tangle.el +++ b/lisp/ob-tangle.el @@ -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