diff options
| author | Lars Ingebrigtsen | 2019-07-30 13:10:03 +0200 |
|---|---|---|
| committer | Lars Ingebrigtsen | 2019-07-30 13:10:03 +0200 |
| commit | bddd4d382a0e91c73326f1e278924ce9e5624cd7 (patch) | |
| tree | 5570b1b689798666fa54fe27394ff403ac37cb79 /lisp | |
| parent | 66a74f841541a9bfa32d34cad9098cee27c58026 (diff) | |
| download | emacs-bddd4d382a0e91c73326f1e278924ce9e5624cd7.tar.gz emacs-bddd4d382a0e91c73326f1e278924ce9e5624cd7.zip | |
Use decoded time accessors in in em-ls
* lisp/eshell/em-ls.el (eshell-ls-file): Use decoded time
accessors.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/eshell/em-ls.el | 14 |
1 files changed, 8 insertions, 6 deletions
diff --git a/lisp/eshell/em-ls.el b/lisp/eshell/em-ls.el index 89969d32582..b1aab79538f 100644 --- a/lisp/eshell/em-ls.el +++ b/lisp/eshell/em-ls.el | |||
| @@ -525,12 +525,14 @@ whose cdr is the list of file attributes." | |||
| 525 | " " (format-time-string | 525 | " " (format-time-string |
| 526 | (concat | 526 | (concat |
| 527 | eshell-ls-date-format " " | 527 | eshell-ls-date-format " " |
| 528 | (if (= (nth 5 (decode-time)) | 528 | (if (= (decoded-time-year (decode-time)) |
| 529 | (nth 5 (decode-time | 529 | (decoded-time-year |
| 530 | (nth (cond | 530 | (decode-time |
| 531 | ((eq sort-method 'by-atime) 4) | 531 | (nth (cond |
| 532 | ((eq sort-method 'by-ctime) 6) | 532 | ((eq sort-method 'by-atime) 4) |
| 533 | (t 5)) attrs)))) | 533 | ((eq sort-method 'by-ctime) 6) |
| 534 | (t 5)) | ||
| 535 | attrs)))) | ||
| 534 | "%H:%M" | 536 | "%H:%M" |
| 535 | " %Y")) (nth (cond | 537 | " %Y")) (nth (cond |
| 536 | ((eq sort-method 'by-atime) 4) | 538 | ((eq sort-method 'by-atime) 4) |