diff options
| author | John Wiegley <johnw@newartisans.com> | 2001-05-10 01:55:51 +0000 |
|---|---|---|
| committer | John Wiegley <johnw@newartisans.com> | 2001-05-10 01:55:51 +0000 |
| commit | 3b774a0c201068fa0659b7d3fd3d6044ffde50e3 (patch) | |
| tree | 67f064635becac0187bd8a3ca61c366de4ae24d8 /lisp/calendar/timeclock.el | |
| parent | b2c9995061505419cc40c3bae07d19438a7fe5fa (diff) | |
| download | emacs-3b774a0c201068fa0659b7d3fd3d6044ffde50e3.tar.gz emacs-3b774a0c201068fa0659b7d3fd3d6044ffde50e3.tar.bz2 emacs-3b774a0c201068fa0659b7d3fd3d6044ffde50e3.zip | |
(timeclock-find-discrep): Set `timeclock-last-event-workday' if it's
still nil.
Diffstat (limited to 'lisp/calendar/timeclock.el')
| -rw-r--r-- | lisp/calendar/timeclock.el | 2 |
1 files changed, 2 insertions, 0 deletions
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 |