ndwarshuis
/
org-mode
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

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.
This commit is contained in:
Bastien Guerry 2013-01-23 14:48:52 +01:00
parent 4a0afac669
commit 345cfbec25
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lisp/org-clock.el
View File

@ -1204,7 +1204,7 @@ make this the default behavior.)"
(setq org-clock-start-time (setq org-clock-start-time
(apply 'encode-time (apply 'encode-time
(org-parse-time-string (match-string 1)))) (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 (setq org-clock-total-time (org-clock-sum-current-item
(org-clock-get-sum-start)))) (org-clock-get-sum-start))))
((eq org-clock-in-resume 'auto-restart) ((eq org-clock-in-resume 'auto-restart)
@ -1224,7 +1224,7 @@ make this the default behavior.)"
(beginning-of-line 1) (beginning-of-line 1)
(org-indent-line-to (- (org-get-indentation) 2))) (org-indent-line-to (- (org-get-indentation) 2)))
(insert org-clock-string " ") (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 (setq org-clock-total-time (org-clock-sum-current-item
(org-clock-get-sum-start))) (org-clock-get-sum-start)))
(setq org-clock-start-time (setq org-clock-start-time