tec/org-mode
tec/org-mode
1
0
Fork 0
forked from mirrors/org-mode
Code Pull requests Releases Activity

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

Browse source 
* lisp/org.el (org-before-first-heading-p): Ignore inlinetasks.
This commit is contained in:
Nicolas Goaziou 2018-06-13 22:20:27 +02:00
parent f50f373389
commit 956a5a4cb1
1 changed files with 4 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
lisp/org.el
View file

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