# HG changeset patch
# User John Wiegley <johnw@newartisans.com>
# Date 989462798 0
# Node ID 7fb1a7ce4a40dc1241302efba39e76173c549a49
# Parent  db867aae3c6629d6d944a20e8a5c8639c6f23d54
One more variable coming up nil on the first time around, needing
guarding.

diff -r db867aae3c66 -r 7fb1a7ce4a40 lisp/calendar/timeclock.el
--- a/lisp/calendar/timeclock.el	Thu May 10 01:57:04 2001 +0000
+++ b/lisp/calendar/timeclock.el	Thu May 10 02:46:38 2001 +0000
@@ -1080,7 +1080,7 @@
     (unless timeclock-last-event-workday
       (setq timeclock-last-event-workday timeclock-workday))
     (setq accum timeclock-discrepancy
-	  elapsed timeclock-elapsed)
+	  elapsed (or timeclock-elapsed elapsed))
     (if timeclock-last-event
 	(if (equal (car timeclock-last-event) "i")
 	    (let ((last-period (timeclock-last-period now)))