瀏覽代碼

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.
Ihor Radchenko 3 年之前
父節點
當前提交
e23815ba61
共有 1 個文件被更改,包括 1 次插入1 次删除
  1. 1 1
      lisp/org-clock.el

+ 1 - 1
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)