fix bug: tangling #+headers: lines w/prefix arg
authorEric Schulte <schulte.eric@gmail.com>
Sat, 26 Jan 2013 20:58:15 +0000 (13:58 -0700)
committerEric Schulte <schulte.eric@gmail.com>
Sat, 26 Jan 2013 20:58:30 +0000 (13:58 -0700)
lisp/ob-tangle.el

index 0db4335..210de21 100644 (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