|
@@ -132,6 +132,7 @@ Stars are put in group 1 and the trimmed body in group 2.")
|
|
|
(declare-function org-clock-in "org-clock" (&optional select start-time))
|
|
|
(declare-function org-clock-in-last "org-clock" (&optional arg))
|
|
|
(declare-function org-clock-out "org-clock" (&optional switch-to-state fail-quietly at-time))
|
|
|
+(declare-function org-clock-out-if-current "org-clock" ())
|
|
|
(declare-function org-clock-remove-overlays "org-clock" (&optional beg end noremove))
|
|
|
(declare-function org-clock-report "org-clock" (&optional arg))
|
|
|
(declare-function org-clock-sum "org-clock" (&optional tstart tend headline-filter propname))
|
|
@@ -12147,6 +12148,7 @@ When called through ELisp, arg is also interpreted in the following way:
|
|
|
(when org-auto-align-tags (org-align-tags))
|
|
|
(when org-provide-todo-statistics
|
|
|
(org-update-parent-todo-statistics))
|
|
|
+ (org-clock-out-if-current)
|
|
|
(run-hooks 'org-after-todo-state-change-hook)
|
|
|
(when (and arg (not (member org-state org-done-keywords)))
|
|
|
(setq head (org-get-todo-sequence-head org-state)))
|