|
@@ -855,7 +855,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!
|
|
|
- (when (save-excursion
|
|
|
+ (if (save-excursion
|
|
|
(unless selected-task
|
|
|
(org-back-to-heading t))
|
|
|
(and (equal (marker-buffer org-clock-hd-marker)
|
|
@@ -866,12 +866,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)
|
|
|
- (throw 'abort nil))
|
|
|
- (move-marker org-clock-interrupted-task
|
|
|
- (marker-position org-clock-marker)
|
|
|
- (marker-buffer org-clock-marker))
|
|
|
- (org-clock-out t))
|
|
|
+ (message "Clock continues in \"%s\"" org-clock-heading)
|
|
|
+ (progn
|
|
|
+ (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
|