diff options
| author | Eli Zaretskii <eliz@gnu.org> | 2018-12-06 19:35:16 +0200 |
|---|---|---|
| committer | Eli Zaretskii <eliz@gnu.org> | 2018-12-06 19:35:16 +0200 |
| commit | 6fa44f9696801eeed6a4af29549cedd5c570785a (patch) | |
| tree | 47ba4a8fab011656bea4485120ec8a737cbcb33e /lisp/simple.el | |
| parent | 7d33c775b245dc011f56559a8a776728888d7246 (diff) | |
| download | emacs-6fa44f9696801eeed6a4af29549cedd5c570785a.tar.gz | |
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)
Diffstat (limited to 'lisp/simple.el')
| -rw-r--r-- | lisp/simple.el | 4 |
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 |