浏览代码

org-clock: Fix `org-clock-in'

* lisp/org-clock.el (org-clock-in): Do not stop clock when clocking-in
  a task already being clocked.

Reported-by: Marcin Borkowski <mbork@mbork.pl>
<http://lists.gnu.org/r/emacs-orgmode/2018-10/msg00095.html>
Nicolas Goaziou 6 年之前
父节点
当前提交
0df6d9f782
共有 1 个文件被更改,包括 1 次插入1 次删除
  1. 1 1
      lisp/org-clock.el

+ 1 - 1
lisp/org-clock.el

@@ -1238,7 +1238,7 @@ the default behavior."
 	  (org-with-point-at selected-task
 	    (unless selected-task (org-back-to-heading t))
 	    (when (and (eq (marker-buffer org-clock-hd-marker)
-			   (buffer-base-buffer))
+			   (org-base-buffer (current-buffer)))
 		       (= (point) (marker-position org-clock-hd-marker))
 		       (equal org-clock-current-task (org-get-heading t t t t)))
 	      (message "Clock continues in %S" org-clock-heading)