From d52c66f4e4f1fead135427d2c638890b5c7ab224 Mon Sep 17 00:00:00 2001 From: Neil Jerram Date: Tue, 28 May 2019 21:01:17 +0100 Subject: [PATCH] Make capture's idea of the current day more intuitive --- lisp/org.el | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) diff --git a/lisp/org.el b/lisp/org.el index c6861dc9a..763eb1e45 100644 --- a/lisp/org.el +++ b/lisp/org.el @@ -18936,7 +18936,9 @@ Returns the number of empty lines passed." This works in the calendar and in the agenda, anywhere else it just returns the current time. If WITH-TIME is non-nil, returns the time of the event at point (in -the agenda) or the current time of the day." +the agenda) or the current time of the day; otherwise returns 12pm +on the cursor date. (Returning 12pm instead of 12am here avoids +problems of interpretation with respect to `org-extend-today-until'.)" (let (date day defd tp hod mod) (when with-time (setq tp (get-text-property (point) 'time)) @@ -18949,13 +18951,13 @@ the agenda) or the current time of the day." (cond ((eq major-mode 'calendar-mode) (setq date (calendar-cursor-to-date) - defd (encode-time 0 (or mod 0) (or hod 0) + defd (encode-time 0 (or mod 0) (or hod 12) (nth 1 date) (nth 0 date) (nth 2 date)))) ((eq major-mode 'org-agenda-mode) (setq day (get-text-property (point) 'day)) (when day (setq date (calendar-gregorian-from-absolute day) - defd (encode-time 0 (or mod 0) (or hod 0) + defd (encode-time 0 (or mod 0) (or hod 12) (nth 1 date) (nth 0 date) (nth 2 date)))))) (or defd (current-time)))) -- 2.17.1