martin/emacs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases 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
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)