diff options
author | Glenn Morris <rgm@gnu.org> | 2011-05-06 18:24:04 -0700 |
---|---|---|
committer | Glenn Morris <rgm@gnu.org> | 2011-05-06 18:24:04 -0700 |
commit | a3961c3e4d2a127cbaf4e20397855867259a7788 (patch) | |
tree | 0283e7e871ac7da5a4c431c536fa76604f6e27f1 | |
parent | d306b4daa53acb043d79ce7fa35cc5a97e75826c (diff) | |
download | emacs-a3961c3e4d2a127cbaf4e20397855867259a7788.tar.gz |
timeclock.el trivia.
* lisp/calendar/timeclock.el (timeclock-log-data): Remove unused local.
Use let rather than let*.
(timeclock-find-discrep): Remove unused local.
-rw-r--r-- | lisp/ChangeLog | 4 | ||||
-rw-r--r-- | lisp/calendar/timeclock.el | 11 |
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) |