From: Michael Albinus <michael.albinus@gmx.de>
Date: Tue, 16 Oct 2018 13:58:45 +0000 (+0200)
Subject: Add process thread to list-processes
X-Git-Tag: emacs-27.0.90~4288
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=76a6417baf8ad5e2513b19f63e27c5c913555329;p=emacs.git

Add process thread to list-processes

* lisp/simple.el (process-menu-mode, list-processes--refresh):
Add process thread.
---

diff --git a/lisp/simple.el b/lisp/simple.el
index 96128c6b9ba..562a9124b5c 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))