From 9b49afd287f4220d8a3e3ecbf83f3f0dc3745a0a Mon Sep 17 00:00:00 2001 From: Lars Ingebrigtsen Date: Thu, 1 Aug 2019 13:46:28 +0200 Subject: [PATCH] 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'. --- lisp/eshell/esh-util.el | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) 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) -- 2.39.2