From: Pip Cet <pipcet@gmail.com>
Date: Tue, 11 Jun 2019 15:24:55 +0000 (-0700)
Subject: Fix list-processes typo with thread-name
X-Git-Tag: emacs-27.0.90~2621
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=ef744119a7cbd0692c53704604e9bb6345c371b6;p=emacs.git

Fix list-processes typo with thread-name

* lisp/simple.el (list-processes--refresh):
Don’t assume thread-name succeeds (Bug#36163).
---

diff --git a/lisp/simple.el b/lisp/simple.el
index 6bc3bc5304c..5e9d13f9f86 100644
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -4102,7 +4102,8 @@ Also, delete any process that is exited or signaled."
                       (null (process-thread p))
                       (not (fboundp 'thread-name))) "--")
                     ((eq (process-thread p) main-thread) "Main")
-                    ((thread-name (process-thread p)))))
+		    ((thread-name (process-thread p)))
+		    (t "--")))
 		  (cmd
 		   (if (memq type '(network serial))
 		       (let ((contact (process-contact p t)))