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

diff --git a/lisp/ob-tangle.el b/lisp/ob-tangle.el
index 0db4335..210de21 100644 (file)
--- 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