From e9e1b0af354aa1672429729ff1e0f48370ce362f Mon Sep 17 00:00:00 2001 From: Lars Ingebrigtsen Date: Tue, 30 Jul 2019 13:07:49 +0200 Subject: [PATCH] Use decoded time accessors in time-date * lisp/calendar/time-date.el (time-to-days): Use decoded time accessors. --- lisp/calendar/time-date.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lisp/calendar/time-date.el b/lisp/calendar/time-date.el index d299dc5e7d1..e195f71c58a 100644 --- 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 -- 2.39.2