Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-16 17:24:23 +00:00
Code Issues Projects Releases Packages Wiki Activity

; Use more decoded time accessors in time-date.el

Browse source 
These were overlooked in a recent change.
* lisp/calendar/time-date.el (time-date--day-in-year): Use decoded
time accessors.
This commit is contained in:
Basil L. Contovounesios 2019-08-01 14:07:18 +03:00
parent b22b59c77b
commit 3c31775527
1 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
lisp/calendar/time-date.el
View file

@ -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)))