Fix list-processes typo with thread-name

* lisp/simple.el (list-processes--refresh):
Don’t assume thread-name succeeds (Bug#36163).
This commit is contained in:
Pip Cet 2019-06-11 08:24:55 -07:00 committed by Paul Eggert
parent c42c4e9c56
commit ef744119a7

View file

@ -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)))