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)

1 files changed, 3 insertions, 1 deletions

diff --git a/lisp/simple.el b/lisp/simple.el
index e1922384f26..db59b9f5bc3 100644
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -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