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.
This commit is contained in:
Nicolas Goaziou 2016-11-27 23:43:00 +01:00
parent 4b99ed5eb0
commit abbf497b84
1 changed files with 3 additions and 1 deletions

View File

@ -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