From ffcd23cf30c7ef70bdd54d0b555b4551087e73c8 Mon Sep 17 00:00:00 2001 From: Bastien Guerry Date: Fri, 28 Dec 2012 12:41:07 +0100 Subject: [PATCH] org.el (org-cycle-internal-local): Fix bug: allow headings with leading blank characters MIME-Version: 1.0 Content-Type: text/plain; charset=utf8 Content-Transfer-Encoding: 8bit * org.el (org-cycle-internal-local): Fix bug: allow headings with leading blank characters. Thanks to Rémi Vanicat for sending a patch for this. --- lisp/org.el | 6 +----- 1 file changed, 1 insertion(+), 5 deletions(-) diff --git a/lisp/org.el b/lisp/org.el index 837d49b59..6cf5b8d08 100644 --- a/lisp/org.el +++ b/lisp/org.el @@ -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))) -- 2.11.4.GIT