emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Emacs-diffs] master 3c31775: ; Use more decoded time accessors in time-


From: Basil L. Contovounesios
Subject: [Emacs-diffs] master 3c31775: ; Use more decoded time accessors in time-date.el
Date: Thu, 1 Aug 2019 07:22:59 -0400 (EDT)

branch: master
commit 3c31775527acbd3c4fdf47d01b8db28e7d78ecd3
Author: Basil L. Contovounesios <address@hidden>
Commit: Basil L. Contovounesios <address@hidden>

    ; 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 32ba128..5b82b8a 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)))



reply via email to

[Prev in Thread] Current Thread [Next in Thread]