From 647849dff9f3314bf0899aad68b275b7b88a59fa Mon Sep 17 00:00:00 2001 From: Eric Schulte Date: Fri, 16 Sep 2011 09:52:09 -0600 Subject: [PATCH] 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. --- lisp/ob-tangle.el | 12 +++++++----- 1 file changed, 7 insertions(+), 5 deletions(-) diff --git a/lisp/ob-tangle.el b/lisp/ob-tangle.el index 10fc120f4..f5dbb3063 100644 --- a/lisp/ob-tangle.el +++ b/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 -- 2.11.4.GIT