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.
This commit is contained in:
Ihor Radchenko 2021-05-31 21:39:51 +08:00 committed by Bastien
parent 97de19f659
commit e23815ba61
1 changed files with 1 additions and 1 deletions

View File

@ -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)