diff options
author | Bastien Guerry <bzg@altern.org> | 2013-01-23 14:48:52 +0100 |
---|---|---|
committer | Bastien Guerry <bzg@altern.org> | 2013-01-23 14:48:52 +0100 |
commit | 345cfbec2503040c89ebedd75d6e660fcb6be14e (patch) | |
tree | 654a27fade53313ff11e9d4408aa6a435319fb9d | |
parent | 4a0afac6697f3c3374b343484f36d3186724c19f (diff) | |
download | org-mode-345cfbec2503040c89ebedd75d6e660fcb6be14e.tar.gz |
org-clock.el (org-clock-in): Fix bug when fetching the effort value
* org-clock.el (org-clock-in): Fix bug when fetching the effort
value.
Thanks to Vasil S. Diadov for reporting this bug and proposing a patch.
-rw-r--r-- | lisp/org-clock.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/org-clock.el b/lisp/org-clock.el index c043dd1..7bd5b5a 100644 --- a/lisp/org-clock.el +++ b/lisp/org-clock.el @@ -1204,7 +1204,7 @@ make this the default behavior.)" (setq org-clock-start-time (apply 'encode-time (org-parse-time-string (match-string 1)))) - (setq org-clock-effort (get-text-property (point) 'org-effort)) + (setq org-clock-effort (org-entry-get (point) org-effort-property)) (setq org-clock-total-time (org-clock-sum-current-item (org-clock-get-sum-start)))) ((eq org-clock-in-resume 'auto-restart) @@ -1224,7 +1224,7 @@ make this the default behavior.)" (beginning-of-line 1) (org-indent-line-to (- (org-get-indentation) 2))) (insert org-clock-string " ") - (setq org-clock-effort (get-text-property (point) 'org-effort)) + (setq org-clock-effort (org-entry-get (point) org-effort-property)) (setq org-clock-total-time (org-clock-sum-current-item (org-clock-get-sum-start))) (setq org-clock-start-time |