|
@@ -15921,7 +15921,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-days-to-time timestamp-string) ndays)
|
|
|
+ (and (< (org-time-stamp-to-now timestamp-string) ndays)
|
|
|
(not (org-entry-is-done-p))))
|
|
|
|
|
|
(defun org-get-wdays (ts)
|