lisp/org.el (org--backward-paragraph-once): Handle corner case

* lisp/org.el (org--backward-paragraph-once): Don't throw an error
when at the first headline after a single empty line.
This commit is contained in:
Bastien 2021-05-02 08:49:53 +02:00
parent 5021bada95
commit 5584ffc6c4
1 changed files with 5 additions and 1 deletions

View File

@ -20886,7 +20886,11 @@ See `org-backward-paragraph'."
(cond
;; There is a blank line above. Move there.
((and (org-previous-line-empty-p)
(not (org-invisible-p (1- (line-end-position 0)))))
(let ((lep (line-end-position 0)))
;; When the first headline start at point 2, don't choke while
;; checking with `org-invisible-p'.
(or (= lep 1)
(not (org-invisible-p (1- (line-end-position 0)))))))
(forward-line -1))
;; At the beginning of the first element within a greater
;; element. Move to the beginning of the greater element.