diff options
author | Bastien <bzg@gnu.org> | 2020-01-29 21:44:05 +0100 |
---|---|---|
committer | Bastien <bzg@gnu.org> | 2020-01-29 21:44:05 +0100 |
commit | db3758da92b07e1eeed4d147e89711062ba61cf4 (patch) | |
tree | ad19ceaf8495a6a62a8e96f0fe6e9d9d023bca60 | |
parent | 0aff90f499f307bc2a5e4255ceb5f424b4a155f4 (diff) | |
parent | c2aebcee273b23185bb0263013e2ea9f683b6032 (diff) | |
download | org-mode-db3758da92b07e1eeed4d147e89711062ba61cf4.tar.gz |
Merge branch 'maint'
-rw-r--r-- | lisp/org.el | 12 |
1 files changed, 5 insertions, 7 deletions
diff --git a/lisp/org.el b/lisp/org.el index d4e1753..61a96f3 100644 --- a/lisp/org.el +++ b/lisp/org.el @@ -6440,13 +6440,11 @@ Use `\\[org-edit-special]' to edit table.el tables")) (setq eos (save-excursion (org-end-of-subtree t t) (when (bolp) (backward-char)) (point))) (setq has-children - (or (save-excursion - (let ((level (funcall outline-level))) - (outline-next-heading) - (and (org-at-heading-p t) - (> (funcall outline-level) level)))) - (save-excursion - (org-list-search-forward (org-item-beginning-re) eos t))))) + (save-excursion + (let ((level (funcall outline-level))) + (outline-next-heading) + (and (org-at-heading-p t) + (> (funcall outline-level) level)))))) ;; Determine end invisible part of buffer (EOL) (beginning-of-line 2) (while (and (not (eobp)) ;This is like `next-line'. |