From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Tue, 30 Jul 2019 11:02:41 +0000 (+0200)
Subject: Use decoded time accessors in proced
X-Git-Tag: emacs-27.0.90~1817^2~25
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=3c4eb0d190ec5d28d5798b346fcde701fd919d1b;p=emacs.git

Use decoded time accessors in proced

* lisp/proced.el (proced-format-start): Use decoded time accessors.
---

diff --git a/lisp/proced.el b/lisp/proced.el
index b05046bfbd3..5f35fa34a07 100644
--- a/lisp/proced.el
+++ b/lisp/proced.el
@@ -1367,12 +1367,12 @@ Prefix ARG controls sort order, see `proced-sort-interactive'."
 The return string is always 6 characters wide."
   (let ((d-start (decode-time start))
         (d-current (decode-time)))
-    (cond ( ;; process started in previous years
-           (< (nth 5 d-start) (nth 5 d-current))
+    (cond (;; process started in previous years
+           (< (decoded-time-year d-start) (decoded-time-year d-current))
            (format-time-string "  %Y" start))
           ;; process started today
-          ((and (= (nth 3 d-start) (nth 3 d-current))
-                (= (nth 4 d-start) (nth 4 d-current)))
+          ((and (= (decoded-time-day d-start) (decoded-time-day d-current))
+                (= (decoded-time-month d-start) (decoded-time-month d-current)))
            (format-time-string " %H:%M" start))
           (t ;; process started this year
            (format-time-string "%b %e" start)))))