From 6fa44f9696801eeed6a4af29549cedd5c570785a Mon Sep 17 00:00:00 2001 From: Eli Zaretskii Date: Thu, 6 Dec 2018 19:35:16 +0200 Subject: [PATCH] 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) --- lisp/simple.el | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) 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 -- 2.39.5