From 072f2abe4cdb57d01262e28858330f1e22de5e6f Mon Sep 17 00:00:00 2001 From: Nicolas Goaziou Date: Tue, 17 Sep 2013 22:36:09 +0200 Subject: [PATCH] org-element: Fix infloop in `org-element-at-point' * lisp/org-element.el (org-element-at-point): Fix infloop when called on a blank line at the end of the buffer after a headline. --- lisp/org-element.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lisp/org-element.el b/lisp/org-element.el index ad461a70e..2dade91bd 100644 --- a/lisp/org-element.el +++ b/lisp/org-element.el @@ -4735,7 +4735,7 @@ first element of current section." (org-back-to-heading) (forward-line) (org-skip-whitespace) - (when (> (line-beginning-position) origin) + (when (or (eobp) (> (line-beginning-position) origin)) ;; In blank lines just after the headline, point still ;; belongs to the headline. (throw 'exit -- 2.11.4.GIT