diff options
| author | Nicolas Richard <theonewiththeevillook@yahoo.fr> | 2014-05-23 13:04:28 +0200 |
|---|---|---|
| committer | Bastien Guerry <bzg@altern.org> | 2014-05-23 13:04:28 +0200 |
| commit | 54f4d2f4a4c0bb41d73ff8c395c490fd45c8a077 (patch) | |
| tree | 6edbf1701a2eff2e1b1d4eb3c0d7c7fe7be8d901 | |
| parent | cece23b6646e0d6f275c85957297672d262c8ad3 (diff) | |
| download | org-mode-54f4d2f4a4c0bb41d73ff8c395c490fd45c8a077.tar.gz | |
org.el (org-cycle-internal-local): Fix trailing character bug
* org.el (org-cycle-internal-local): Don't show a trailing
character when cycling a subtree that ends with a non-newline
character at the end of the buffer or the narrowed region.
| -rw-r--r-- | lisp/org.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/org.el b/lisp/org.el index e1dff13..9a3b509 100644 --- a/lisp/org.el +++ b/lisp/org.el @@ -6729,7 +6729,8 @@ 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 (1- (org-end-of-subtree t t)))) + (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))) |