procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

timeclock.el trivia.

Browse source 
* lisp/calendar/timeclock.el (timeclock-log-data): Remove unused local.
Use let rather than let*.
(timeclock-find-discrep): Remove unused local.
This commit is contained in:
Glenn Morris 2011-05-06 18:24:04 -07:00
parent d306b4daa5
commit a3961c3e4d
2 changed files with 9 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
lisp/ChangeLog
View file

@ -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.

11
lisp/calendar/timeclock.el
View file

@ -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)