[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Orgmode] [PATCH 3/4] org-capture: use org-today
From: |
Julien Danjou |
Subject: |
[Orgmode] [PATCH 3/4] org-capture: use org-today |
Date: |
Mon, 29 Nov 2010 15:18:33 +0100 |
* org-capture.el: Use org-today.
Signed-off-by: Julien Danjou <address@hidden>
---
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