[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] /srv/bzr/emacs/trunk r104149: timeclock.el trivia.
From: |
Glenn Morris |
Subject: |
[Emacs-diffs] /srv/bzr/emacs/trunk r104149: timeclock.el trivia. |
Date: |
Fri, 06 May 2011 18:24:04 -0700 |
User-agent: |
Bazaar (2.3.1) |
------------------------------------------------------------
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)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] /srv/bzr/emacs/trunk r104149: timeclock.el trivia.,
Glenn Morris <=