소스 검색

Ignore inlinetasks in `org-before-first-heading-p'

* lisp/org.el (org-before-first-heading-p): Ignore inlinetasks.
Nicolas Goaziou 7 년 전
부모
커밋
956a5a4cb1
1개의 변경된 파일4개의 추가작업 그리고 3개의 파일을 삭제
  1. 4 3
      lisp/org.el

+ 4 - 3
lisp/org.el

@@ -22941,9 +22941,10 @@ interactive command with similar behavior."
 
 (defun org-before-first-heading-p ()
   "Before first heading?"
-  (save-excursion
-    (end-of-line)
-    (null (re-search-backward org-outline-regexp-bol nil t))))
+  (org-with-limited-levels
+   (save-excursion
+     (end-of-line)
+     (null (re-search-backward org-outline-regexp-bol nil t)))))
 
 (defun org-at-heading-p (&optional ignored)
   (outline-on-heading-p t))