branch: externals-release/org
commit cf141e8a0977787a34456a2567b6644e9d943426
Author: Ihor Radchenko <[email protected]>
Commit: Ihor Radchenko <[email protected]>
org-timer-set-timer: Fix when called from org-agenda on entry without EFFORT
* lisp/org-timer.el (org-timer-set-timer): Consider that there might
be no effort at point.
Reported-by: Charles Choi <[email protected]>
Link:
https://orgmode.org/list/[email protected]
---
lisp/org-timer.el | 3 ++-
1 file changed, 2 insertions(+), 1 deletion(-)
diff --git a/lisp/org-timer.el b/lisp/org-timer.el
index bbadab3c8b..8c9df9d379 100644
--- a/lisp/org-timer.el
+++ b/lisp/org-timer.el
@@ -425,7 +425,8 @@ using three \\[universal-argument] prefix arguments."
org-timer-default-timer))
(effort-minutes
(cond ((derived-mode-p 'org-agenda-mode)
- (floor (org-get-at-bol 'effort-minutes)))
+ (when-let* ((effort (org-get-at-bol 'effort-minutes)))
+ (floor effort)))
((derived-mode-p 'org-mode)
(let ((effort (org-entry-get nil org-effort-property)))
(when (org-string-nw-p effort)
