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:
parent
7d33c775b2
commit
6fa44f9696
1 changed files with 3 additions and 1 deletions
|
@ -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
|
||||
|
|
Loading…
Add table
Reference in a new issue