From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Thu, 1 Aug 2019 11:46:28 +0000 (+0200)
Subject: Use decoded-time accessors in esh-util
X-Git-Tag: emacs-27.0.90~1784
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=9b49afd287f4220d8a3e3ecbf83f3f0dc3745a0a;p=emacs.git

Use decoded-time accessors in esh-util

* lisp/eshell/esh-util.el (eshell-parse-ange-ls): Use decoded-time
accessors for results from `parse-time-string'.
---

diff --git a/lisp/eshell/esh-util.el b/lisp/eshell/esh-util.el
index 082403130d4..353b9400f2e 100644
--- a/lisp/eshell/esh-util.el
+++ b/lisp/eshell/esh-util.el
@@ -647,12 +647,12 @@ If NOSORT is non-nil, the list is not sorted--its order is unpredictable.
 	       (name (ange-ftp-parse-filename))
 	       (mtime
 		(let ((moment (parse-time-string (match-string 6))))
-		  (if (nth 0 moment)
-		      (setcar (nthcdr 5 moment)
-			      (decoded-time-year (decode-time)))
-		    (setcar (nthcdr 0 moment) 0)
-		    (setcar (nthcdr 1 moment) 0)
-		    (setcar (nthcdr 2 moment) 0))
+		  (if (decoded-time-second moment)
+		      (setf (decoded-time-year moment)
+			    (decoded-time-year (decode-time)))
+		    (setf (decoded-time-second moment) 0)
+		    (setf (decoded-time-minute moment) 0)
+                    (setf (decoded-time-hour moment) 0))
 		  (encode-time moment)))
 	       symlink)
 	  (if (string-match "\\(.+\\) -> \\(.+\\)" name)