浏览代码

org.el (org-cycle-internal-local): Fix bug: allow headings with leading blank characters

* 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.
Bastien Guerry 12 年之前
父节点
当前提交
ffcd23cf30
共有 1 个文件被更改,包括 1 次插入5 次删除
  1. 1 5
      lisp/org.el

+ 1 - 5
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)))