From: Eli Zaretskii <eliz@gnu.org>
Date: Sat, 12 Aug 2017 10:18:13 +0000 (+0300)
Subject: Adapt Proced display to display-line-numbers
X-Git-Tag: emacs-26.0.90~485
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=e94b0d4d54e39b2601b7f3f724d6c6d8a556e89f;p=emacs.git

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 86d79689a49..be3b7c41a61 100644
--- 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"