Revert "Update modeline with effort and task name on re-clock-in"
This reverts commit 4a4fbf1b8c
.
Clocking in the currently clocking task was leaving open clock entries
which is incorrect. Updating the modeline is less important than
keeping correct clocking data.
This commit is contained in:
parent
055f0e621e
commit
17c71a40c6
|
@ -959,7 +959,7 @@ the clocking selection, associated with the letter `d'."
|
|||
;; We are interrupting the clocking of a different task.
|
||||
;; Save a marker to this task, so that we can go back.
|
||||
;; First check if we are trying to clock into the same task!
|
||||
(if (save-excursion
|
||||
(when (save-excursion
|
||||
(unless selected-task
|
||||
(org-back-to-heading t))
|
||||
(and (equal (marker-buffer org-clock-hd-marker)
|
||||
|
@ -970,13 +970,12 @@ the clocking selection, associated with the letter `d'."
|
|||
(if selected-task
|
||||
(marker-position selected-task)
|
||||
(point)))))
|
||||
(message "Clock continues in \"%s\"" org-clock-heading)
|
||||
(progn
|
||||
(move-marker org-clock-interrupted-task
|
||||
(marker-position org-clock-marker)
|
||||
(org-clocking-buffer))
|
||||
(let ((org-clock-clocking-in t))
|
||||
(org-clock-out t)))))
|
||||
(message "Clock continues in \"%s\"" org-clock-heading)
|
||||
(throw 'abort nil))
|
||||
(move-marker org-clock-interrupted-task
|
||||
(marker-position org-clock-marker)
|
||||
(marker-buffer org-clock-marker))
|
||||
(org-clock-out t))
|
||||
|
||||
(when (equal select '(16))
|
||||
;; Mark as default clocking task
|
||||
|
|
Loading…
Reference in New Issue