Use decoded time accessors in in em-ls

* lisp/eshell/em-ls.el (eshell-ls-file): Use decoded time
accessors.

diff --git a/lisp/eshell/em-ls.el b/lisp/eshell/em-ls.el
index 89969d3258210d7f3480b2e268fbc123cc2d73f9..b1aab79538f7ec55268d4d5b449156af0a1cb416 100644 (file)
--- a/lisp/eshell/em-ls.el
+++ b/lisp/eshell/em-ls.el
@@ -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)