From 588a7c261b63f09fa539948f13e4f64e73f072f5 Mon Sep 17 00:00:00 2001
From: Nicolas Goaziou <n.goaziou@gmail.com>
Date: Sat, 21 Jan 2012 20:38:22 +0100
Subject: [PATCH] org-element: Correctly parse inlinetasks before first
 headline

* contrib/lisp/org-element.el (org-element-section-parser): Correctly
  parse inlinetasks before first headline.
---
 contrib/lisp/org-element.el | 31 ++++++++++++++++---------------
 1 file changed, 16 insertions(+), 15 deletions(-)

diff --git a/contrib/lisp/org-element.el b/contrib/lisp/org-element.el
index 2c4161542..1fd4ce86d 100644
--- a/contrib/lisp/org-element.el
+++ b/contrib/lisp/org-element.el
@@ -752,21 +752,22 @@ and `:post-blank' keywords."
   (save-excursion
     ;; Beginning of section is the beginning of the first non-blank
     ;; line after previous headline.
-    (let ((begin (save-excursion
-		   (org-with-limited-levels (outline-previous-heading))
-		   (if (not (org-at-heading-p)) (point)
-		     (forward-line) (org-skip-whitespace) (point-at-bol))))
-	  (end (progn (org-with-limited-levels (outline-next-heading))
-		      (point)))
-	  (pos-before-blank (progn (skip-chars-backward " \r\t\n")
-				   (forward-line)
-				   (point))))
-      `(section
-	(:begin ,begin
-		:end ,end
-		:contents-begin ,begin
-		:contents-end ,pos-before-blank
-		:post-blank ,(count-lines pos-before-blank end))))))
+    (org-with-limited-levels
+     (let ((begin
+	    (save-excursion
+	      (outline-previous-heading)
+	      (if (not (org-at-heading-p)) (point)
+		(forward-line) (org-skip-whitespace) (point-at-bol))))
+	   (end (progn (outline-next-heading) (point)))
+	   (pos-before-blank (progn (skip-chars-backward " \r\t\n")
+				    (forward-line)
+				    (point))))
+       `(section
+	 (:begin ,begin
+		 :end ,end
+		 :contents-begin ,begin
+		 :contents-end ,pos-before-blank
+		 :post-blank ,(count-lines pos-before-blank end)))))))
 
 (defun org-element-section-interpreter (section contents)
   "Interpret SECTION element as Org syntax.