summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorNicolas Goaziou <mail@nicolasgoaziou.fr>2016-11-27 23:43:00 +0100
committerNicolas Goaziou <mail@nicolasgoaziou.fr>2016-11-27 23:43:00 +0100
commitabbf497b8433d00e0513809b77038d090207f71d (patch)
tree968f165fdf51bee6a29a144663a73549ea52f344
parent4b99ed5eb095a52d65eb289831b857733d5925f7 (diff)
downloadorg-mode-abbf497b8433d00e0513809b77038d090207f71d.tar.gz
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.
-rw-r--r--lisp/org-agenda.el4
1 files changed, 3 insertions, 1 deletions
diff --git a/lisp/org-agenda.el b/lisp/org-agenda.el
index 905918c..2144c91 100644
--- a/lisp/org-agenda.el
+++ b/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