From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Tue, 30 Jul 2019 11:08:49 +0000 (+0200)
Subject: Use decoded time accessors in timer
X-Git-Tag: emacs-27.0.90~1817^2~17
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=66a74f841541a9bfa32d34cad9098cee27c58026;p=emacs.git

Use decoded time accessors in timer

* lisp/emacs-lisp/timer.el (run-at-time): Use decoded time
accessors.
---

diff --git a/lisp/emacs-lisp/timer.el b/lisp/emacs-lisp/timer.el
index 22ccc35103a..400f00a85b5 100644
--- a/lisp/emacs-lisp/timer.el
+++ b/lisp/emacs-lisp/timer.el
@@ -375,8 +375,11 @@ This function returns a timer object which you can use in
 	      (now (decode-time)))
 	  (if (>= hhmm 0)
 	      (setq time
-		    (encode-time 0 (% hhmm 100) (/ hhmm 100) (nth 3 now)
-				 (nth 4 now) (nth 5 now) (nth 8 now)))))))
+		    (encode-time 0 (% hhmm 100) (/ hhmm 100)
+                                 (decoded-time-day now)
+				 (decoded-time-month now)
+                                 (decoded-time-year now)
+                                 (decoded-time-zone now)))))))
 
   (or (consp time)
       (error "Invalid time format"))