From e09f92bf7e3d79a6f4558e5c7ce190ce12cf346f Mon Sep 17 00:00:00 2001 From: Nicolas Goaziou Date: Sun, 8 Jan 2012 19:33:50 +0100 Subject: [PATCH] org-element: Correctly get section beginning * contrib/lisp/org-element.el (org-element-section-parser): Fix `:begin' property, which was preventing correct parsing of text before first headline. --- contrib/lisp/org-element.el | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) diff --git a/contrib/lisp/org-element.el b/contrib/lisp/org-element.el index efb188b7a..d7a81593f 100644 --- a/contrib/lisp/org-element.el +++ b/contrib/lisp/org-element.el @@ -736,9 +736,8 @@ and `:post-blank' keywords." ;; line after previous headline. (let ((begin (save-excursion (org-with-limited-levels (outline-previous-heading)) - (forward-line) - (org-skip-whitespace) - (point-at-bol))) + (if (bobp) (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")