Make list-processes support display-line-numbers

* lisp/simple.el (process-menu-mode): Move the call to
tabulated-list-init-header from here...
(list-processes--refresh): ...to here.  (Bug#27895)

diff --git a/lisp/simple.el b/lisp/simple.el
index 58f837219239462bfb2a6dc5a5d45f85382032e8..072723cd6443df12a1b2f280247ac82aaf636669 100644 (file)
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -3928,8 +3928,7 @@ support pty association, if PROGRAM is nil."
                               ("Command"  0 t)])
   (make-local-variable 'process-menu-query-only)
   (setq tabulated-list-sort-key (cons "Process" nil))
-  (add-hook 'tabulated-list-revert-hook 'list-processes--refresh nil t)
-  (tabulated-list-init-header))
+  (add-hook 'tabulated-list-revert-hook 'list-processes--refresh nil t))
 
 (defun process-menu-delete-process ()
   "Kill process at point in a `list-processes' buffer."
@@ -3990,7 +3989,8 @@ Also, delete any process that is exited or signaled."
                                       "")))))
                     (mapconcat 'identity (process-command p) " "))))
             (push (list p (vector name pid status buf-label tty cmd))
-                  tabulated-list-entries))))))
+                  tabulated-list-entries)))))
+  (tabulated-list-init-header))
 
 (defun process-menu-visit-buffer (button)
   (display-buffer (button-get button 'process-buffer)))