diff options
author | Markus Hauck <markus1189@gmail.com> | 2014-03-11 16:06:17 +0100 |
---|---|---|
committer | Bastien Guerry <bzg@altern.org> | 2014-03-14 12:03:07 +0100 |
commit | 62d759e3c941898ccf36569321b21a987281ffeb (patch) | |
tree | 5ff35c3f0075ad6e9d323fcd4f5e014ad3f539fd | |
parent | 475f2f5388074c5153b3f35e41696419faa52b54 (diff) | |
download | org-mode-62d759e3c941898ccf36569321b21a987281ffeb.tar.gz |
Fix: `org-agenda-skip-scheduled-if-deadline-is-shown': show TODOs without deadline
* lisp/org-agenda.el (org-agenda-get-scheduled): If
`org-agenda-skip-scheduled-if-deadline-is-shown' is set to
'repeated-after-deadline, still show tasks without any deadline
The problem was that the check for the deadline seems to return a
default time even if no deadline is set for the task. This adds a
check if there is a deadline at all, if there is none, the task is
shown in the agenda, otherwise the old semantics apply.
TINYCHANGE
-rw-r--r-- | lisp/org-agenda.el | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/lisp/org-agenda.el b/lisp/org-agenda.el index 25bfaba..b7d150b 100644 --- a/lisp/org-agenda.el +++ b/lisp/org-agenda.el @@ -6245,6 +6245,7 @@ an hour specification like [h]h:mm." category-pos (get-text-property (point) 'org-category-position)) (if (and (eq org-agenda-skip-scheduled-if-deadline-is-shown 'repeated-after-deadline) + (org-get-deadline-time (point)) (<= 0 (- d2 (time-to-days (org-get-deadline-time (point)))))) (throw :skip nil)) (if (not (re-search-backward "^\\*+[ \t]+" nil t)) |