FIX use supplied epoch time

This commit is contained in:
Nathan Dwarshuis 2021-08-28 23:32:24 -04:00
parent db2b0f74e5
commit 5f756e3406
1 changed files with 1 additions and 1 deletions

View File

@ -281,7 +281,7 @@ entire subtrees to save time and ignore tasks")
EPOCH-TIME is an integer/float for the created time. If nil, use EPOCH-TIME is an integer/float for the created time. If nil, use
the current time." the current time."
(let ((ts (->> (float-time) (let ((ts (->> (or epoch-time (float-time))
(org-ml-unixtime-to-time-long) (org-ml-unixtime-to-time-long)
(org-ml-build-timestamp!) (org-ml-build-timestamp!)
(org-ml-to-string)))) (org-ml-to-string))))