From: Eli Zaretskii <eliz@gnu.org>
Date: Thu, 6 Dec 2018 17:35:16 +0000 (+0200)
Subject: Avoid an error on exit in a build without threads
X-Git-Tag: emacs-27.0.90~4041
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=6fa44f9696801eeed6a4af29549cedd5c570785a;p=emacs.git

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