From: John Wiegley <johnw@newartisans.com>
Date: Thu, 10 May 2001 01:55:51 +0000 (+0000)
Subject: (timeclock-find-discrep): Set `timeclock-last-event-workday' if it's
X-Git-Tag: emacs-pretest-21.0.104~567
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=3b774a0c201068fa0659b7d3fd3d6044ffde50e3;p=emacs.git

(timeclock-find-discrep): Set `timeclock-last-event-workday' if it's
still nil.
---

diff --git a/lisp/calendar/timeclock.el b/lisp/calendar/timeclock.el
index 53ff1277139..2cd06f3ac6b 100644
--- a/lisp/calendar/timeclock.el
+++ b/lisp/calendar/timeclock.el
@@ -1077,6 +1077,8 @@ See the documentation for the given function if more info is needed."
 		    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