From: Gemini Lasswell <gazally@runbox.com>
Date: Thu, 23 Aug 2018 19:19:04 +0000 (-0700)
Subject: Add check in list-threads for --without-threads configuration
X-Git-Tag: emacs-27.0.90~4449^2~3
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=703b1cf9e232061648af11e9772d86895735158d;p=emacs.git

Add check in list-threads for --without-threads configuration

* lisp/thread.el (list-threads): Signal an error if the Emacs configuration
doesn't have threads.
---

diff --git a/lisp/thread.el b/lisp/thread.el
index c9f50ff5dba..53208851b78 100644
--- a/lisp/thread.el
+++ b/lisp/thread.el
@@ -82,6 +82,9 @@ An EVENT has the format
 (defun list-threads ()
   "Display a list of threads."
   (interactive)
+  ;; Threads may not exist, if Emacs was configured --without-threads.
+  (unless (bound-and-true-p main-thread)
+    (error "Threads are not supported in this configuration"))
   ;; Generate the Threads list buffer, and switch to it.
   (let ((buf (get-buffer-create "*Threads*")))
     (with-current-buffer buf