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)

diff --git a/lisp/simple.el b/lisp/simple.el
index e1922384f267155502c795d3113b7914d02c7890..db59b9f5bc34ee2696d4f6f2473383936ed9d3bc 100644 (file)
--- 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