浏览代码

Fix bug in org-agenda-diary-sexp-prefix

* lisp/org-agenda.el (org-agenda-get-sexps): Reset `extra' to nil at
beginning of re-search-forward loop, otherwise next iteration picks up
`extra' value from previous entry.
Toby S. Cubitt 12 年之前
父节点
当前提交
58551f1e5f
共有 1 个文件被更改,包括 2 次插入1 次删除
  1. 2 1
      lisp/org-agenda.el

+ 2 - 1
lisp/org-agenda.el

@@ -5454,7 +5454,8 @@ Do we have a reason to ignore this TODO entry because it has a time stamp?
 		tags (save-excursion (org-backward-heading-same-level 0)
 		tags (save-excursion (org-backward-heading-same-level 0)
 				     (org-get-tags-at))
 				     (org-get-tags-at))
 		todo-state (org-get-todo-state)
 		todo-state (org-get-todo-state)
-		warntime (org-entry-get (point) "APPT_WARNTIME"))
+		warntime (org-entry-get (point) "APPT_WARNTIME")
+		extra nil)
 
 
 	  (dolist (r (if (stringp result)
 	  (dolist (r (if (stringp result)
 			 (list result)
 			 (list result)