diff options
author | Bastien Guerry <bzg@altern.org> | 2013-04-24 10:47:16 +0200 |
---|---|---|
committer | Bastien Guerry <bzg@altern.org> | 2013-04-24 10:47:16 +0200 |
commit | 3dd3100794e90f7a44eb17118d1c084299868621 (patch) | |
tree | 380f541cf971f9be7611233ac3c4cc1c7baaaad8 | |
parent | 240d645dbb2d7d8968162d9d36058ea406ad4b67 (diff) | |
download | org-mode-3dd3100794e90f7a44eb17118d1c084299868621.tar.gz |
org-clock.el (org-clock-in): Don't forward by one character when setting the marker in the clock history
* org-clock.el (org-clock-in): Don't forward by one character
when setting the marker in the clock history.
This was done to prevent the marker from being broken when a user
manually insert some text right one it. I cannot reproduce this
manual marker modification problem, so let's remove this ugly
exception, as it is not consistent with other clock markers.
Thanks to Bernt Hansen for pointing this out.
-rw-r--r-- | lisp/org-clock.el | 9 |
1 files changed, 2 insertions, 7 deletions
diff --git a/lisp/org-clock.el b/lisp/org-clock.el index d96e034..591d0d3 100644 --- a/lisp/org-clock.el +++ b/lisp/org-clock.el @@ -1199,13 +1199,8 @@ make this the default behavior.)" (goto-char target-pos) (org-back-to-heading t) (or interrupting (move-marker org-clock-interrupted-task nil)) - (save-excursion - (forward-char) ;; make sure the marker is not at the - ;; beginning of the heading, since the - ;; user is liking to insert stuff here - ;; manually - (run-hooks 'org-clock-in-prepare-hook) - (org-clock-history-push)) + (run-hooks 'org-clock-in-prepare-hook) + (org-clock-history-push) (setq org-clock-current-task (nth 4 (org-heading-components))) (cond ((functionp org-clock-in-switch-to-state) (looking-at org-complex-heading-regexp) |