Avoid an error on exit in a build without threads

* lisp/simple.el (list-processes--refresh): Avoid signaling an
error in a build --without-threads.  (Bug#33629)
This commit is contained in:
Eli Zaretskii 2018-12-06 19:35:16 +02:00
parent 7d33c775b2
commit 6fa44f9696

View file

@ -4006,7 +4006,9 @@ Also, delete any process that is exited or signaled."
(tty (or (process-tty-name p) "--"))
(thread
(cond
((null (process-thread p)) "--")
((or
(null (process-thread p))
(not (fboundp 'thread-name))) "--")
((eq (process-thread p) main-thread) "Main")
((thread-name (process-thread p)))))
(cmd