[Emacs-diffs] master 76a6417: Add process thread to list-processes

[Michael Albinus]

branch: master
commit 76a6417baf8ad5e2513b19f63e27c5c913555329
Author: Michael Albinus <address@hidden>
Commit: Michael Albinus <address@hidden>

    Add process thread to list-processes
    
    * lisp/simple.el (process-menu-mode, list-processes--refresh):
    Add process thread.
---
 lisp/simple.el | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

diff --git a/lisp/simple.el b/lisp/simple.el
index 96128c6..562a912 100644
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -3959,6 +3959,7 @@ support pty association, if PROGRAM is nil."
                                ;; name "*Async Shell Command*<10>" (bug#30016)
                               ("Buffer"  25 t)
                               ("TTY"     12 t)
+                              ("Thread"  12 t)
                               ("Command"  0 t)])
   (make-local-variable 'process-menu-query-only)
   (setq tabulated-list-sort-key (cons "Process" nil))
@@ -4000,6 +4001,11 @@ Also, delete any process that is exited or signaled."
                                   action process-menu-visit-buffer)
                               "--"))
                  (tty (or (process-tty-name p) "--"))
+                 (thread
+                   (cond
+                    ((null (process-thread p)) "--")
+                    ((eq (process-thread p) main-thread) "Main")
+                    ((thread-name (process-thread p)))))
                  (cmd
                   (if (memq type '(network serial))
                       (let ((contact (process-contact p t)))
@@ -4022,7 +4028,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 pid status buf-label tty cmd))
+            (push (list p (vector name pid status buf-label tty thread cmd))
                   tabulated-list-entries)))))
   (tabulated-list-init-header))