Use decoded time accessors in time-date

* lisp/calendar/time-date.el (time-to-days): Use decoded time
accessors.

diff --git a/lisp/calendar/time-date.el b/lisp/calendar/time-date.el
index d299dc5e7d15161eb00d83f3fc2f705c6467dfeb..e195f71c58af4f015429a4e02ff50c4611ff805f 100644 (file)
--- a/lisp/calendar/time-date.el
+++ b/lisp/calendar/time-date.el
@@ -237,7 +237,7 @@ 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))
-        (year (nth 5 tim)))
+        (year (decoded-time-year tim)))
     (+ (time-date--day-in-year tim)    ;       Days this year
        (* 365 (1- year))               ;       + Days in prior years
        (/ (1- year) 4)                 ;       + Julian leap years