From a3961c3e4d2a127cbaf4e20397855867259a7788 Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Fri, 6 May 2011 18:24:04 -0700 Subject: [PATCH] timeclock.el trivia. * lisp/calendar/timeclock.el (timeclock-log-data): Remove unused local. Use let rather than let*. (timeclock-find-discrep): Remove unused local. --- lisp/ChangeLog | 4 ++++ lisp/calendar/timeclock.el | 11 +++++------ 2 files changed, 9 insertions(+), 6 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 8528460f4f..026d5b78bb 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,9 @@ 2011-05-07 Glenn Morris + * calendar/timeclock.el (timeclock-log-data): Remove unused local. + Use let rather than let*. + (timeclock-find-discrep): Remove unused local. + * calendar/diary-lib.el (diary-comment-start): Doc fix. * calendar/appt.el (appt-time-msg-list): Doc fix. diff --git a/lisp/calendar/timeclock.el b/lisp/calendar/timeclock.el index 49c44449b0..8fc3f762f2 100644 --- a/lisp/calendar/timeclock.el +++ b/lisp/calendar/timeclock.el @@ -1025,11 +1025,10 @@ lists: timeclock-current-debt LOG-DATA See the documentation for the given function if more info is needed." - (let* ((log-data (list 0.0 nil nil)) - (now (current-time)) - (todays-date (timeclock-time-to-date now)) - last-date-limited last-date-seconds last-date - (line 0) last beg day entry event) + (let ((log-data (list 0.0 nil nil)) + (now (current-time)) + last-date-limited last-date-seconds last-date + (line 0) last beg day entry event) (with-temp-buffer (insert-file-contents (or filename timeclock-file)) (when recent-only @@ -1115,7 +1114,7 @@ discrepancy, today's discrepancy, and the time worked today." (let* ((now (current-time)) (todays-date (timeclock-time-to-date now)) (first t) (accum 0) (elapsed 0) - event beg last-date avg + event beg last-date last-date-limited last-date-seconds) (unless timeclock-discrepancy (when (file-readable-p timeclock-file) -- 2.39.2