Переглянути джерело

Update modeline with effort and task name on re-clock-in

Skip clocking out when we are clocking in the same task that
is currently clocking but go through the normal clock-in
setup so a modified task name or effort property is
updated in the modeline.
Bernt Hansen 15 роки тому
батько
коміт
4a4fbf1b8c
1 змінених файлів з 7 додано та 7 видалено
  1. 7 7
      lisp/org-clock.el

+ 7 - 7
lisp/org-clock.el

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