From a4285bcb1114e29200001f33af9b4802167d6140 Mon Sep 17 00:00:00 2001 From: Tino Calancha Date: Tue, 7 Jun 2016 15:06:38 -0400 Subject: [PATCH] * lisp/simple.el (process-menu-mode, list-processes--refresh): Include PID. (Bug#21725) (cherry picked from commit b7adc2f23787eb72015cd705b873e229db6a5049) --- lisp/simple.el | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/lisp/simple.el b/lisp/simple.el index c43fe548c82..67c02665ea1 100644 --- a/lisp/simple.el +++ b/lisp/simple.el @@ -3749,6 +3749,7 @@ support pty association, if PROGRAM is nil." (define-derived-mode process-menu-mode tabulated-list-mode "Process Menu" "Major mode for listing the processes called by Emacs." (setq tabulated-list-format [("Process" 15 t) + ("PID" 7 t) ("Status" 7 t) ("Buffer" 15 t) ("TTY" 12 t) @@ -3775,6 +3776,7 @@ Also, delete any process that is exited or signaled." (process-query-on-exit-flag p)) (let* ((buf (process-buffer p)) (type (process-type p)) + (pid (if (process-id p) (format "%d" (process-id p)) "--")) (name (process-name p)) (status (symbol-name (process-status p))) (buf-label (if (buffer-live-p buf) @@ -3810,7 +3812,7 @@ Also, delete any process that is exited or signaled." (format " at %s b/s" speed) ""))))) (mapconcat 'identity (process-command p) " ")))) - (push (list p (vector name status buf-label tty cmd)) + (push (list p (vector name pid status buf-label tty cmd)) tabulated-list-entries)))))) (defun process-menu-visit-buffer (button) -- 2.39.2