emacs-orgmode
[Top][All Lists]
Advanced

[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




reply via email to

[Prev in Thread] Current Thread [Next in Thread]