[Emacs-diffs] master 1c382c0: Make list-processes support display-line-numbers

[Eli Zaretskii]

branch: master
commit 1c382c096b8b7d1fa995e6131b887d9128085c68
Author: Eli Zaretskii <address@hidden>
Commit: Eli Zaretskii <address@hidden>

    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)
---
 lisp/simple.el | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/lisp/simple.el b/lisp/simple.el
index 58f8372..072723c 100644
--- 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)))