From 13f066d66da2c553fe2cbf871f2abb0abdf58570 Mon Sep 17 00:00:00 2001 From: Julien Danjou Date: Mon, 29 Nov 2010 19:18:33 +0000 Subject: [PATCH] org-capture: use org-today * org-capture.el: Use org-today. Signed-off-by: Julien Danjou --- lisp/org-capture.el | 9 ++------- 1 file changed, 2 insertions(+), 7 deletions(-) diff --git a/lisp/org-capture.el b/lisp/org-capture.el index a5c6a4d8e..7d0f1acb0 100644 --- a/lisp/org-capture.el +++ b/lisp/org-capture.el @@ -671,15 +671,10 @@ already gone." ;; prompt for date (time-to-days (org-read-date nil t nil "Date for tree entry:" - (time-subtract (current-time) - (list 0 (* 3600 - org-extend-today-until) - 0))))) + (days-to-time (org-today))))) (t ;; current date, possible corrected for late night workers - (time-to-days - (time-subtract (current-time) - (list 0 (* 3600 org-extend-today-until) 0)))))))) + (org-today)))))) ((eq (car target) 'file+function) (set-buffer (org-capture-target-buffer (nth 1 target))) -- 2.11.4.GIT