Mercurial > emacs

changeset 37650:061ef023b0af

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(timeclock-find-discrep): Set `timeclock-last-event-workday' if it's still nil.
author John Wiegley <johnw@newartisans.com>
date Thu, 10 May 2001 01:55:51 +0000
parents 14bc60b57ff1
children db867aae3c66
files lisp/calendar/timeclock.el
diffstat 1 files changed, 2 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- 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