diff options
author | Oleh Krehel <ohwoeowho@gmail.com> | 2016-02-26 16:58:44 +0100 |
---|---|---|
committer | Oleh Krehel <ohwoeowho@gmail.com> | 2016-02-26 16:58:44 +0100 |
commit | 1003b1025bdd86974c183f13fdbb0c500c484c75 (patch) | |
tree | efd7ff4b6d45522e9c9065f95795a3ea3eee8757 | |
parent | 7125fa194757081b865e135066644d00ae2bd950 (diff) | |
download | org-mode-1003b1025bdd86974c183f13fdbb0c500c484c75.tar.gz |
org-agenda.el (org-agenda-to-appt): Ignore DONE tasks
-rw-r--r-- | lisp/org-agenda.el | 2 |
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) |