branch: externals/org
commit 50b7865a5562ba855a79e7c5ce4d68c4433f5c2d
Author: Ihor Radchenko <yanta...@posteo.net>
Commit: Ihor Radchenko <yanta...@posteo.net>
org-timer-set-timer: Fix using effort for duration when in agenda buffer
* lisp/org-timer.el (org-timer-set-timer): Round the 'effort-minutes
value. The logic later on expects MINUTES to be an integer, not float
as stored in agenda buffer.
Reported-by: Arthur Heymans <art...@aheymans.xyz>
Link: https://orgmode.org/list/871pqj9ebq....@aheymans.xyz
---
lisp/org-timer.el | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/lisp/org-timer.el b/lisp/org-timer.el
index e2237920b0..702dbf9c9e 100644
--- a/lisp/org-timer.el
+++ b/lisp/org-timer.el
@@ -427,7 +427,7 @@ using three \\[universal-argument] prefix arguments."
org-timer-default-timer))
(effort-minutes
(cond ((derived-mode-p 'org-agenda-mode)
- (org-get-at-bol 'effort-minutes))
+ (floor (org-get-at-bol 'effort-minutes)))
((derived-mode-p 'org-mode)
(let ((effort (org-entry-get nil org-effort-property)))
(when (org-string-nw-p effort)
