From 27f3a7cb05527f7f7873b4ece5a91028b4467d1f Mon Sep 17 00:00:00 2001 From: Nicolas Goaziou Date: Sun, 8 Jan 2012 20:38:28 +0100 Subject: [PATCH] org-element: Fix infloop when an heading is the first line of a buffer * contrib/lisp/org-element.el (org-element-section-parser): Fix infloop when an heading is the first line of a buffer. --- contrib/lisp/org-element.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/contrib/lisp/org-element.el b/contrib/lisp/org-element.el index 06b1d11a8..a1dfe2973 100644 --- a/contrib/lisp/org-element.el +++ b/contrib/lisp/org-element.el @@ -736,7 +736,7 @@ and `:post-blank' keywords." ;; line after previous headline. (let ((begin (save-excursion (org-with-limited-levels (outline-previous-heading)) - (if (bobp) (point) + (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)))