summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorBastien Guerry <bzg@altern.org>2013-01-23 14:48:52 +0100
committerBastien Guerry <bzg@altern.org>2013-01-23 14:48:52 +0100
commit345cfbec2503040c89ebedd75d6e660fcb6be14e (patch)
tree654a27fade53313ff11e9d4408aa6a435319fb9d
parent4a0afac6697f3c3374b343484f36d3186724c19f (diff)
downloadorg-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.el4
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