diff options
| author | Lars Ingebrigtsen <larsi@gnus.org> | 2019-07-30 13:07:49 +0200 |
|---|---|---|
| committer | Lars Ingebrigtsen <larsi@gnus.org> | 2019-07-30 13:07:49 +0200 |
| commit | e9e1b0af354aa1672429729ff1e0f48370ce362f (patch) | |
| tree | 773521dde89c48dcd76cae94b91bb3031dc7d828 /lisp/calendar | |
| parent | e3bbd665a9ab8208fdc9c20aee8ac0b4cee682d8 (diff) | |
| download | emacs-e9e1b0af354aa1672429729ff1e0f48370ce362f.tar.gz | |
Use decoded time accessors in time-date
* lisp/calendar/time-date.el (time-to-days): Use decoded time
accessors.
Diffstat (limited to 'lisp/calendar')
| -rw-r--r-- | lisp/calendar/time-date.el | 2 |
1 files changed, 1 insertions, 1 deletions
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 |