Mercurial > emacs
comparison lisp/calendar/timeclock.el @ 36853:4d655ac2976f
see ChangeLog
| author | John Wiegley <johnw@newartisans.com> |
|---|---|
| date | Fri, 16 Mar 2001 21:48:27 +0000 |
| parents | ea0bb03a9658 |
| children | b3f0de9a07ea |
comparison
equal
deleted
inserted
replaced
| 36852:57da1ff61f52 | 36853:4d655ac2976f |
|---|---|
| 458 "Return a the number of seconds until the workday is complete. | 458 "Return a the number of seconds until the workday is complete. |
| 459 The amount returned is relative to the value of `timeclock-workday'. | 459 The amount returned is relative to the value of `timeclock-workday'. |
| 460 If TODAY-ONLY is non-nil, the value returned will be relative only to | 460 If TODAY-ONLY is non-nil, the value returned will be relative only to |
| 461 the time worked today, and not to past time. This argument only makes | 461 the time worked today, and not to past time. This argument only makes |
| 462 a difference if `timeclock-relative' is non-nil." | 462 a difference if `timeclock-relative' is non-nil." |
| 463 (- (timeclock-find-discrep today-only))) | 463 (let ((discrep (timeclock-find-discrep today-only))) |
| 464 (or (and discrep (- discrep)) 0.0))) | |
| 464 | 465 |
| 465 (defsubst timeclock-currently-in-p () | 466 (defsubst timeclock-currently-in-p () |
| 466 "Return non-nil if the user is currently clocked in." | 467 "Return non-nil if the user is currently clocked in." |
| 467 (equal (car timeclock-last-event) "i")) | 468 (equal (car timeclock-last-event) "i")) |
| 468 | 469 |