From 24d01c3cfcfd6a833fdeffb09ec6036e4affdc26 Mon Sep 17 00:00:00 2001 From: Laurence Warne Date: Sat, 22 Jul 2023 14:35:15 +0100 Subject: [PATCH] Fix Proced Start column alignment for different locales * lisp/proced.el (proced-grammar-alist): Change the justify value of the start attribute to left from the fixed value of six. (Bug#64752) (proced-format-start): Remove the assertion that the returned string will always be of length six from the docstring. --- lisp/proced.el | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) diff --git a/lisp/proced.el b/lisp/proced.el index b3d581a49d1..47de74b0ecb 100644 --- a/lisp/proced.el +++ b/lisp/proced.el @@ -152,7 +152,7 @@ proced-grammar-alist (pri "Pr" "%d" right proced-< t (pri pid) (nil t t)) (nice "Ni" "%3d" 3 proced-< t (nice pid) (t t nil)) (thcount "THCount" "%d" right proced-< t (thcount pid) (nil t t)) - (start "Start" proced-format-start 6 proced-time-lessp nil (start pid) + (start "Start" proced-format-start left proced-time-lessp nil (start pid) (t t nil)) (vsize "VSize" proced-format-memory right proced-< t (vsize pid) (nil t t)) @@ -1599,8 +1599,7 @@ proced-format-time (format "%02d%s%02d" minutes colon seconds))))) (defun proced-format-start (start) - "Format time START. -The return string is always 6 characters wide." + "Format time START." (let ((d-start (decode-time start)) (d-current (decode-time)) (colon (if proced-enable-color-flag -- 2.30.2