소스 검색

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.
Bastien 4 년 전
부모
커밋
5584ffc6c4
1개의 변경된 파일5개의 추가작업 그리고 1개의 파일을 삭제
  1. 5 1
      lisp/org.el

+ 5 - 1
lisp/org.el

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