mirror/org-mode
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-11-23 07:18:53 +00:00
Code

Fixed display of idle time in read-char prompt

Browse Source
This commit is contained in:
John Wiegley 2009-10-31 18:12:08 -04:00
parent 8ebde06262
commit 5da5814efa
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lisp/org-clock.el
View File

@ -795,7 +795,8 @@ if the user really wants to stay clocked in after being idle for
so long."
(when (and org-clock-idle-time (not org-clock-resolving-clocks)
org-clock-marker)
(let ((org-clock-user-idle-seconds (org-user-idle-seconds))
(let ((org-clock-user-idle-start (current-time))
(org-clock-user-idle-seconds (org-user-idle-seconds))
(org-clock-resolving-clocks-due-to-idleness t))
(if (> org-clock-user-idle-seconds (* 60 org-clock-idle-time))
(org-clock-resolve
@ -804,7 +805,9 @@ so long."
(function
(lambda (clock)
(format "Clocked in & idle for %d mins"
(/ org-clock-user-idle-seconds 60))))
(/ (time-to-seconds
(time-subtract (current-time)
org-clock-user-idle-start)) 60))))
(time-subtract (current-time)
(seconds-to-time org-clock-user-idle-seconds)))))))