Browse Source

better delimiting of Org-mode text preceding a code block

  Thanks to Christopher Genovese for this change

* lisp/ob-tangle.el (org-babel-tangle-collect-blocks): Better
  delimiting of Org-mode text preceding a code block.
Eric Schulte 9 years ago
parent
commit
647849dff9
1 changed files with 7 additions and 5 deletions
  1. 7 5
      lisp/ob-tangle.el

+ 7 - 5
lisp/ob-tangle.el

@@ -358,12 +358,14 @@ code blocks by language."
 		       (buffer-substring
 			(max (condition-case nil
 				 (save-excursion
-				   (org-back-to-heading t) (point))
-			       (error 0))
+				   (org-back-to-heading t)  ; sets match data
+				   (match-end 0))
+			       (error (point-min)))
 			     (save-excursion
-			       (re-search-backward
-				org-babel-src-block-regexp nil t)
-			       (match-end 0)))
+			       (if (re-search-backward
+				    org-babel-src-block-regexp nil t)
+				   (match-end 0)
+				 (point-min))))
 			(point)))))
 		   by-lang)
 	      ;; add the spec for this block to blocks under it's language