|
@@ -1423,7 +1423,7 @@ The time is always returned as UTC."
|
|
(current-time))
|
|
(current-time))
|
|
((equal cmt "today")
|
|
((equal cmt "today")
|
|
(setq org--msg-extra "showing today's task time.")
|
|
(setq org--msg-extra "showing today's task time.")
|
|
- (let* ((dt (org-decode-time nil t))
|
|
|
|
|
|
+ (let* ((dt (decode-time))
|
|
(hour (nth 2 dt))
|
|
(hour (nth 2 dt))
|
|
(day (nth 3 dt)))
|
|
(day (nth 3 dt)))
|
|
(if (< hour org-extend-today-until) (setf (nth 3 dt) (1- day)))
|
|
(if (< hour org-extend-today-until) (setf (nth 3 dt) (1- day)))
|