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.
This commit is contained in:
Nicolas Goaziou 2013-09-17 22:36:09 +02:00
parent 68b0dba851
commit 072f2abe4c
1 changed files with 1 additions and 1 deletions

View File

@ -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