diff options
author | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2018-10-09 18:25:11 +0200 |
---|---|---|
committer | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2018-10-09 18:25:11 +0200 |
commit | 0df6d9f782ea43239ddb418c4dd632a37ed4b63f (patch) | |
tree | 06a3306e85ebf84816283f8c9c14dc6aed8f8bbc | |
parent | a85ba9fb9bc7518bc0b654c79812f5606be84c58 (diff) | |
download | org-mode-0df6d9f782ea43239ddb418c4dd632a37ed4b63f.tar.gz |
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>
-rw-r--r-- | lisp/org-clock.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/org-clock.el b/lisp/org-clock.el index 71ed99f..ca05dfd 100644 --- a/lisp/org-clock.el +++ b/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) |