* calendar/timeclock.el (timeclock-day-projects): Change a `cdr' to `cddr'.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 9a8dc5009cf235f4e8a8c6309e7667f58d7be95d..30f89ec3fcdde18aebc616fd169920bbd9a7ce87 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2008-07-30  David Lord <david.lord@phonecoop.coop>
+
+       * calendar/timeclock.el (timeclock-day-projects): Change a `cdr'
+       to `cddr'.
+
 2008-07-29  Chong Yidong  <cyd@stupidchicken.com>
 
        * Makefile.in (ELCFILES): Add mairix.elc.

diff --git a/lisp/calendar/timeclock.el b/lisp/calendar/timeclock.el
index ff4901e13933e8c63177f7c4cbc3a4eae5d429f4..9b223e3caa587e316b2102b00b6a8320389246a2 100644 (file)
--- a/lisp/calendar/timeclock.el
+++ b/lisp/calendar/timeclock.el
@@ -831,7 +831,7 @@ This is only provided for coherency when used by
 
 (defsubst timeclock-day-projects (day)
   "Return a list of all the projects in DAY."
-  (timeclock-entry-list-projects (cdr day)))
+  (timeclock-entry-list-projects (cddr day)))
 
 (defmacro timeclock-day-list-template (func)
   "Template for summing the result of FUNC on each element of DAY-LIST."