Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-16 17:24:23 +00:00
Code Issues Projects Releases Packages Wiki Activity

Use decoded time accessors in in em-ls

Browse source 
* lisp/eshell/em-ls.el (eshell-ls-file): Use decoded time
accessors.
This commit is contained in:
Lars Ingebrigtsen 2019-07-30 13:10:03 +02:00
parent 66a74f8415
commit bddd4d382a
1 changed files with 8 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

14
lisp/eshell/em-ls.el
View file

@ -525,12 +525,14 @@ whose cdr is the list of file attributes."
" " (format-time-string
(concat
eshell-ls-date-format " "
(if (= (nth 5 (decode-time))
(nth 5 (decode-time
(nth (cond
((eq sort-method 'by-atime) 4)
((eq sort-method 'by-ctime) 6)
(t 5)) attrs))))
(if (= (decoded-time-year (decode-time))
(decoded-time-year
(decode-time
(nth (cond
((eq sort-method 'by-atime) 4)
((eq sort-method 'by-ctime) 6)
(t 5))
attrs))))
"%H:%M"
" %Y")) (nth (cond
((eq sort-method 'by-atime) 4)