From 9165cab870e27c09d5e1a8c97b84f5f2be134017 Mon Sep 17 00:00:00 2001 From: John Wiegley Date: Fri, 16 Mar 2001 21:48:27 +0000 Subject: [PATCH] see ChangeLog --- lisp/calendar/timeclock.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) 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'. 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." -- 2.39.2