Explorar o código

org-agenda.el (org-agenda-todo): Mark the clocking task

* org-agenda.el (org-agenda-todo): Mark the clocking task.
Bastien Guerry %!s(int64=11) %!d(string=hai) anos
pai
achega
75ca2a0e0d
Modificáronse 1 ficheiros con 2 adicións e 1 borrados
  1. 2 1
      lisp/org-agenda.el

+ 2 - 1
lisp/org-agenda.el

@@ -8839,7 +8839,8 @@ the same tree node, and the headline of the tree node in the Org-mode file."
       	(string-match (concat "^" (regexp-opt org-done-keywords-for-agenda))
 		      newhead)
 	(org-agenda-unmark-clocking-task))
-      (org-move-to-column col))))
+      (org-move-to-column col)
+      (org-agenda-mark-clocking-task))))
 
 (defun org-agenda-add-note (&optional arg)
   "Add a time-stamped note to the entry at point."