andros/emacs-gpu
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Use decoded-time accessors in esh-util

Browse source 
* lisp/eshell/esh-util.el (eshell-parse-ange-ls): Use decoded-time
accessors for results from `parse-time-string'.
This commit is contained in:
Lars Ingebrigtsen 2019-08-01 13:46:28 +02:00
parent 5bccff7b5b
commit 9b49afd287
1 changed files with 6 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
lisp/eshell/esh-util.el
View file

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