ndwarshuis
/
org-mode
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lisp/org.el
View File

@ -20886,7 +20886,11 @@ See `org-backward-paragraph'."
(cond (cond
;; There is a blank line above. Move there. ;; There is a blank line above. Move there.
((and (org-previous-line-empty-p) ((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)) (forward-line -1))
;; At the beginning of the first element within a greater ;; At the beginning of the first element within a greater
;; element. Move to the beginning of the greater element. ;; element. Move to the beginning of the greater element.