mirror of
https://git.savannah.gnu.org/git/emacs/org-mode.git
synced 2024-08-20 06:48:35 +00:00
org-capture: use org-today
* org-capture.el: Use org-today. Signed-off-by: Julien Danjou <julien@danjou.info>
This commit is contained in:
parent
1dcb374f48
commit
13f066d66d
|
@ -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)))
|
||||
|
|
Loading…
Reference in a new issue