From 5401da2076b9de890fbf086e472c09c3f0a66fdf Mon Sep 17 00:00:00 2001 From: Don March Date: Wed, 1 Jun 2016 00:05:12 -0400 Subject: [PATCH] Make today's deadlines "close" without lead time * org.el (org-deadline-close): A timestamp is close if the days between now and the timestamp are less then or equal to the days of lead time. --- lisp/org.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lisp/org.el b/lisp/org.el index 680086d..fb9e101 100644 --- a/lisp/org.el +++ b/lisp/org.el @@ -17479,7 +17479,7 @@ If SECONDS is non-nil, return the difference in seconds." (defun org-deadline-close (timestamp-string &optional ndays) "Is the time in TIMESTAMP-STRING close to the current date?" (setq ndays (or ndays (org-get-wdays timestamp-string))) - (and (< (org-time-stamp-to-now timestamp-string) ndays) + (and (<= (org-time-stamp-to-now timestamp-string) ndays) (not (org-entry-is-done-p)))) (defun org-get-wdays (ts &optional delay zero-delay) -- 2.8.1