From mboxrd@z Thu Jan 1 00:00:00 1970 From: Julien Danjou Subject: [PATCH 3/4] org-capture: use org-today Date: Mon, 29 Nov 2010 15:18:33 +0100 Message-ID: <1291040314-1884-3-git-send-email-julien@danjou.info> References: <1291040314-1884-1-git-send-email-julien@danjou.info> Return-path: Received: from [140.186.70.92] (port=55169 helo=eggs.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1PN4Z0-0007il-TO for emacs-orgmode@gnu.org; Mon, 29 Nov 2010 09:18:43 -0500 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1PN4Yv-0008NQ-GS for emacs-orgmode@gnu.org; Mon, 29 Nov 2010 09:18:42 -0500 Received: from coquelicot-s.easter-eggs.com ([213.215.37.94]:45889) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1PN4Yv-0008My-8H for emacs-orgmode@gnu.org; Mon, 29 Nov 2010 09:18:37 -0500 In-Reply-To: <1291040314-1884-1-git-send-email-julien@danjou.info> List-Id: "General discussions about Org-mode." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Sender: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org To: emacs-orgmode@gnu.org Cc: Julien Danjou * org-capture.el: Use org-today. Signed-off-by: Julien Danjou --- lisp/org-capture.el | 9 ++------- 1 files changed, 2 insertions(+), 7 deletions(-) diff --git a/lisp/org-capture.el b/lisp/org-capture.el index a5c6a4d..7d0f1ac 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))) -- 1.7.2.3