浏览代码

Bugfix: Make cycling work in plain list item at end of file

Reported by Wanrong Lin.
Carsten Dominik 16 年之前
父节点
当前提交
6f2a247611
共有 2 个文件被更改,包括 7 次插入3 次删除
  1. 3 0
      lisp/ChangeLog
  2. 4 3
      lisp/org.el

+ 3 - 0
lisp/ChangeLog

@@ -1,5 +1,8 @@
 2009-02-15  Carsten Dominik  <carsten.dominik@gmail.com>
 
+	* org.el (org-show-entry): Make this work correctly also if it is
+	the last entry in the file.
+
 	* org-list.el (org-toggle-checkbox): Make double prefix set the
 	checkbox to "[-]".
 	(org-fix-bullet-type): Only replace bullet it it is changed.

+ 4 - 3
lisp/org.el

@@ -15309,9 +15309,10 @@ Show the heading too, if it is currently invisible."
 	  (outline-flag-region
 	   (max (point-min) (1- (point)))
 	   (save-excursion
-	     (re-search-forward
-	      (concat "[\r\n]\\(" outline-regexp "\\)") nil 'move)
-	     (or (match-beginning 1) (point-max)))
+	     (if (re-search-forward
+		  (concat "[\r\n]\\(" outline-regexp "\\)") nil t)
+		 (match-beginning 1)
+	       (point-max)))
 	   nil))
       (error nil))))