[Emacs-diffs] /srv/bzr/emacs/trunk r104149: timeclock.el trivia.

[Glenn Morris]

------------------------------------------------------------
revno: 104149
committer: Glenn Morris <address@hidden>
branch nick: trunk
timestamp: Fri 2011-05-06 18:24:04 -0700
message:
  timeclock.el trivia.
  
  * lisp/calendar/timeclock.el (timeclock-log-data): Remove unused local.
  Use let rather than let*.
  (timeclock-find-discrep): Remove unused local.
modified:
  lisp/ChangeLog
  lisp/calendar/timeclock.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2011-05-07 01:20:47 +0000
+++ b/lisp/ChangeLog    2011-05-07 01:24:04 +0000
@@ -1,5 +1,9 @@
 2011-05-07  Glenn Morris  <address@hidden>
 
+       * 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.

=== modified file 'lisp/calendar/timeclock.el'
--- a/lisp/calendar/timeclock.el        2011-01-25 04:08:28 +0000
+++ b/lisp/calendar/timeclock.el        2011-05-07 01:24:04 +0000
@@ -1025,11 +1025,10 @@
   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 @@
   (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)