From: Tino Calancha Date: Tue, 7 Jun 2016 19:06:38 +0000 (-0400) Subject: * lisp/simple.el (process-menu-mode, list-processes--refresh): X-Git-Url: https://code.delx.au/gnu-emacs/commitdiff_plain/b7adc2f23787eb72015cd705b873e229db6a5049 * lisp/simple.el (process-menu-mode, list-processes--refresh): Include PID. (Bug#21725) --- diff --git a/lisp/simple.el b/lisp/simple.el index 3d25ec19ab..6c309293bd 100644 --- a/lisp/simple.el +++ b/lisp/simple.el @@ -3765,6 +3765,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) @@ -3796,6 +3797,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) @@ -3831,7 +3833,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)