timeclock.el trivia.

* lisp/calendar/timeclock.el (timeclock-log-data): Remove unused local.
Use let rather than let*.
(timeclock-find-discrep): Remove unused local.

2 files changed, 9 insertions, 6 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 8528460f4f9..026d5b78bbe 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,9 @@
 2011-05-07  Glenn Morris  <rgm@gnu.org>
 
+        * 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 49c44449b0c..8fc3f762f29 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)