From 345cfbec2503040c89ebedd75d6e660fcb6be14e Mon Sep 17 00:00:00 2001 From: Bastien Guerry Date: Wed, 23 Jan 2013 14:48:52 +0100 Subject: [PATCH] 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. --- lisp/org-clock.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/lisp/org-clock.el b/lisp/org-clock.el index c043dd19e..7bd5b5a95 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 -- 2.11.4.GIT