Browse Source

org-agenda: Fix done scheduled display

* lisp/org-agenda.el (org-agenda-get-scheduled): Skip done scheduled
  unconditionally whenever the base date is not the one currently
  considered.
Nicolas Goaziou 8 years ago
parent
commit
abbf497b84
1 changed files with 3 additions and 1 deletions
  1. 3 1
      lisp/org-agenda.el

+ 3 - 1
lisp/org-agenda.el

@@ -6273,7 +6273,9 @@ scheduled items with an hour specification like [h]h:mm."
 			   (/= repeat current)))
 	      (throw :skip nil)))
 	  ;; Possibly skip done tasks.
-	  (when (and donep org-agenda-skip-scheduled-if-done)
+	  (when (and donep
+		     (or org-agenda-skip-scheduled-if-done
+			 (/= schedule current)))
 	    (throw :skip nil))
 	  ;; Skip entry if it already appears as a deadline, per
 	  ;; `org-agenda-skip-scheduled-if-deadline-is-shown'.  This