mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-22 07:09:54 +00:00
Code Issues Releases Activity

Use decoded time accessors in proced

Browse Source 
* lisp/proced.el (proced-format-start): Use decoded time accessors.
This commit is contained in:
Lars Ingebrigtsen 2019-07-30 13:02:41 +02:00
parent 8a30f0414e
commit 3c4eb0d190
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lisp/proced.el
View File

@ -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)))))