]> git.eshelyaron.com Git - emacs.git/commitdiff
Fix Proced Start column alignment for different locales
authorLaurence Warne <laurencewarne@gmail.com>
Sat, 22 Jul 2023 13:35:15 +0000 (14:35 +0100)
committerEli Zaretskii <eliz@gnu.org>
Sun, 23 Jul 2023 06:39:45 +0000 (09:39 +0300)
* lisp/proced.el (proced-grammar-alist): Change the justify
value of the start attribute to 'left' instead of a fixed
value of 6.  (Bug#64752)
(proced-format-start): Adjust the doc string.

lisp/proced.el

index b3d581a49d1e79a267b7f3acdbd7a668dbfa827f..47de74b0ecbc53b6144fb0d57fe9112578b65844 100644 (file)
@@ -152,7 +152,7 @@ the external command (usually \"kill\")."
     (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 @@ Prefix ARG controls sort order, see `proced-sort-interactive'."
            (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