From: Glenn Morris <rgm@gnu.org>
Date: Sat, 7 May 2011 01:24:04 +0000 (-0700)
Subject: timeclock.el trivia.
X-Git-Tag: emacs-pretest-24.0.90~104^2~275^2~77
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=a3961c3e4d2a127cbaf4e20397855867259a7788;p=emacs.git

timeclock.el trivia.

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

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)