summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorOleh Krehel <ohwoeowho@gmail.com>2016-02-26 16:58:44 +0100
committerOleh Krehel <ohwoeowho@gmail.com>2016-02-26 16:58:44 +0100
commit1003b1025bdd86974c183f13fdbb0c500c484c75 (patch)
treeefd7ff4b6d45522e9c9065f95795a3ea3eee8757
parent7125fa194757081b865e135066644d00ae2bd950 (diff)
downloadorg-mode-1003b1025bdd86974c183f13fdbb0c500c484c75.tar.gz
org-agenda.el (org-agenda-to-appt): Ignore DONE tasks
-rw-r--r--lisp/org-agenda.el2
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/org-agenda.el b/lisp/org-agenda.el
index 86ba2f9..876ea44 100644
--- a/lisp/org-agenda.el
+++ b/lisp/org-agenda.el
@@ -10207,7 +10207,7 @@ to override `appt-message-warning-time'."
(wrn (get-text-property 1 'warntime x)))
;; FIXME: Shall we remove text-properties for the appt text?
;; (setq evt (set-text-properties 0 (length evt) nil evt))
- (when (and ok tod)
+ (when (and ok tod (not (string-match "\\`DONE\\|CANCELLED" evt)))
(setq tod (concat "00" (number-to-string tod))
tod (when (string-match
"\\([0-9]\\{1,2\\}\\)\\([0-9]\\{2\\}\\)\\'" tod)