branch: externals-release/org
commit e23815ba61b18146c75531691864e438aaf9ea60
Author: Ihor Radchenko <yanta...@gmail.com>
Commit: Bastien <b...@gnu.org>
Correctly handle org-log-note-clock-out non-interactively
* lisp/org-clock.el (org-clock-out): Delay log popup to
after-command-hook to avoid messing up non-interactive calls.
`org-add-log-setup' without 'note argument would raise interactive
note buffer immediately, so we do pass the 'note argument.
---
lisp/org-clock.el | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/lisp/org-clock.el b/lisp/org-clock.el
index af7c0ea..aec5bc7 100644
--- a/lisp/org-clock.el
+++ b/lisp/org-clock.el
@@ -1682,7 +1682,7 @@ to, overriding the existing value of
`org-clock-out-switch-to-state'."
(line-beginning-position 2)))
(org-log-note-clock-out
(org-add-log-setup
- 'clock-out nil nil nil
+ 'clock-out nil nil 'note
(concat "# Task: " (org-get-heading t) "\n\n"))))
(when org-clock-mode-line-timer
(cancel-timer org-clock-mode-line-timer)
