|
@@ -6259,11 +6259,7 @@ in special contexts.
|
|
|
(setq has-children (org-list-has-child-p (point) struct)))
|
|
|
(org-back-to-heading)
|
|
|
(setq eoh (save-excursion (outline-end-of-heading) (point)))
|
|
|
- (setq eos (save-excursion
|
|
|
- (org-end-of-subtree t)
|
|
|
- (unless (eobp)
|
|
|
- (skip-chars-forward " \t\n"))
|
|
|
- (if (eobp) (point) (1- (point)))))
|
|
|
+ (setq eos (save-excursion (1- (org-end-of-subtree t t))))
|
|
|
(setq has-children
|
|
|
(or (save-excursion
|
|
|
(let ((level (funcall outline-level)))
|