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