diff options
| author | John Wiegley | 2001-03-16 21:48:27 +0000 |
|---|---|---|
| committer | John Wiegley | 2001-03-16 21:48:27 +0000 |
| commit | 9165cab870e27c09d5e1a8c97b84f5f2be134017 (patch) | |
| tree | 4408354a748b0861bff216cc0072815234a62824 | |
| parent | ae3ce418a85eeba1b9f4e16dc6ea68f656a3ecf2 (diff) | |
| download | emacs-9165cab870e27c09d5e1a8c97b84f5f2be134017.tar.gz emacs-9165cab870e27c09d5e1a8c97b84f5f2be134017.zip | |
see ChangeLog
| -rw-r--r-- | lisp/calendar/timeclock.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/calendar/timeclock.el b/lisp/calendar/timeclock.el index 550214c6c29..d41a1f8c0a4 100644 --- a/lisp/calendar/timeclock.el +++ b/lisp/calendar/timeclock.el | |||
| @@ -460,7 +460,8 @@ 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." |