ndwarshuis
/
org-mode
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

org-capture: use org-today 

* org-capture.el: Use org-today.

Signed-off-by: Julien Danjou <julien@danjou.info>
This commit is contained in:
Julien Danjou 2010-11-29 19:18:33 +00:00 committed by Carsten Dominik
parent 1dcb374f48
commit 13f066d66d
1 changed files with 2 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
lisp/org-capture.el
View File

@ -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)))