Mercurial > emacs
changeset 36853:4d655ac2976f
see ChangeLog
| author | John Wiegley <johnw@newartisans.com> |
|---|---|
| date | Fri, 16 Mar 2001 21:48:27 +0000 |
| parents | 57da1ff61f52 |
| children | b3f0de9a07ea |
| files | lisp/calendar/timeclock.el |
| diffstat | 1 files changed, 2 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/calendar/timeclock.el Fri Mar 16 21:42:51 2001 +0000 +++ b/lisp/calendar/timeclock.el Fri Mar 16 21:48:27 2001 +0000 @@ -460,7 +460,8 @@ If TODAY-ONLY is non-nil, the value returned will be relative only to the time worked today, and not to past time. This argument only makes a difference if `timeclock-relative' is non-nil." - (- (timeclock-find-discrep today-only))) + (let ((discrep (timeclock-find-discrep today-only))) + (or (and discrep (- discrep)) 0.0))) (defsubst timeclock-currently-in-p () "Return non-nil if the user is currently clocked in."