# HG changeset patch
# User John Wiegley <johnw@newartisans.com>
# Date 989459751 0
# Node ID 061ef023b0af97df860a91aaa056d64d9e427347
# Parent  14bc60b57ff16edb12041b1c1e527accc1c6272e
(timeclock-find-discrep): Set `timeclock-last-event-workday' if it's
still nil.

diff -r 14bc60b57ff1 -r 061ef023b0af lisp/calendar/timeclock.el
--- a/lisp/calendar/timeclock.el	Thu May 10 01:06:33 2001 +0000
+++ b/lisp/calendar/timeclock.el	Thu May 10 01:55:51 2001 +0000
@@ -1077,6 +1077,8 @@
 		    timeclock-workday))
 	    (forward-line))
 	  (setq timeclock-discrepancy accum))))
+    (unless timeclock-last-event-workday
+      (setq timeclock-last-event-workday timeclock-workday))
     (setq accum timeclock-discrepancy
 	  elapsed timeclock-elapsed)
     (if timeclock-last-event