Adapt Proced display to display-line-numbers

* lisp/proced.el (proced-header-line): Account for the width taken
by display-line-numbers.  (Bug#27895)

diff --git a/lisp/proced.el b/lisp/proced.el
index 86d79689a49618db1faa0eba985ce697c8964a54..be3b7c41a61202d46450084be4522be0f909a556 100644 (file)
--- a/lisp/proced.el
+++ b/lisp/proced.el
@@ -602,7 +602,9 @@ Important: the match ends just after the marker.")
 
 (defun proced-header-line ()
   "Return header line for Proced buffer."
-  (list (propertize " " 'display '(space :align-to 0))
+  (list (propertize " "
+                    'display
+                    (list 'space :align-to (+ 2 (line-number-display-width))))
         (if (<= (window-hscroll) (length proced-header-line))
             (replace-regexp-in-string ;; preserve text properties
              "\\(%\\)" "\\1\\1"