From 3c31775527acbd3c4fdf47d01b8db28e7d78ecd3 Mon Sep 17 00:00:00 2001 From: "Basil L. Contovounesios" Date: Thu, 1 Aug 2019 14:07:18 +0300 Subject: [PATCH] ; Use more decoded time accessors in time-date.el These were overlooked in a recent change. * lisp/calendar/time-date.el (time-date--day-in-year): Use decoded time accessors. --- lisp/calendar/time-date.el | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/lisp/calendar/time-date.el b/lisp/calendar/time-date.el index 32ba1286895..5b82b8ab0fa 100644 --- a/lisp/calendar/time-date.el +++ b/lisp/calendar/time-date.el @@ -216,9 +216,9 @@ DATE1 and DATE2 should be date-time strings." (defun time-date--day-in-year (tim) "Return the day number within the year corresponding to the decoded time TIM." - (let* ((month (nth 4 tim)) - (day (nth 3 tim)) - (year (nth 5 tim)) + (let* ((month (decoded-time-month tim)) + (day (decoded-time-day tim)) + (year (decoded-time-year tim)) (day-of-year (+ day (* 31 (1- month))))) (when (> month 2) (setq day-of-year (- day-of-year (/ (+ 23 (* 4 month)) 10))) -- 2.39.2