[Emacs-diffs] scratch/list-threads 468a32c 8/9: Add check in list-threads for --without-threads configuration

[Gemini Lasswell]

branch: scratch/list-threads
commit 468a32c9568d9ff1053db4d5935a3f8a97828d8f
Author: Gemini Lasswell <address@hidden>
Commit: Gemini Lasswell <address@hidden>

    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.
---
 lisp/thread.el | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/lisp/thread.el b/lisp/thread.el
index 7225ed4..0957c7f 100644
--- a/lisp/thread.el
+++ b/lisp/thread.el
@@ -65,6 +65,9 @@
 (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