From 1c382c096b8b7d1fa995e6131b887d9128085c68 Mon Sep 17 00:00:00 2001 From: Eli Zaretskii Date: Sat, 19 Aug 2017 16:36:31 +0300 Subject: [PATCH] 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 58f83721923..072723cd644 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))) -- 2.39.2