浏览代码

org-agenda: Fix `org-agenda-list-stuck-projects'

* lisp/org-agenda.el (org-agenda-list-stuck-projects): Fix thinko
  introduced in 7c3e0b0fd.

Reported-by: Matt Lundin <mdl@imapmail.org>
<http://permalink.gmane.org/gmane.emacs.orgmode/111633>
Nicolas Goaziou 8 年之前
父节点
当前提交
4370ee4e44
共有 1 个文件被更改,包括 2 次插入1 次删除
  1. 2 1
      lisp/org-agenda.el

+ 2 - 1
lisp/org-agenda.el

@@ -5124,7 +5124,8 @@ of what a project is and how to check if it stuck, customize the variable
 	  `(lambda ()
 	     (and (save-excursion
 		    (let ((case-fold-search nil))
-		      (re-search-forward ,skip-re (org-end-of-subtree t) t)))
+		      (re-search-forward
+		       ,skip-re (save-excursion (org-end-of-subtree t)) t)))
 		  (progn (outline-next-heading) (point))))))
     (org-tags-view nil matcher)
     (setq org-agenda-buffer-name (buffer-name))