time-date.el (time-to-days): Remove unused local variables.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 3cbeac0..f02ef8d 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2011-04-19  Glenn Morris  <rgm@gnu.org>
+
+       * time-date.el (time-to-days): Remove unused local variables.
+
 2011-04-18  Katsumi Yamaoka  <yamaoka@jpl.org>
 
        * gnus-registry.el: Eliminate cl functions.

diff --git a/lisp/time-date.el b/lisp/time-date.el
index 6220360..70d096c 100644 (file)
--- a/lisp/time-date.el
+++ b/lisp/time-date.el
@@ -243,8 +243,6 @@ DATE1 and DATE2 should be date-time strings."
 TIME should be a time value.
 The Gregorian date Sunday, December 31, 1bce is imaginary."
   (let* ((tim (decode-time time))
-        (month (nth 4 tim))
-        (day (nth 3 tim))
         (year (nth 5 tim)))
     (+ (time-to-day-in-year time)      ;       Days this year
        (* 365 (1- year))               ;       + Days in prior years