From 703b1cf9e232061648af11e9772d86895735158d Mon Sep 17 00:00:00 2001 From: Gemini Lasswell Date: Thu, 23 Aug 2018 12:19:04 -0700 Subject: [PATCH] 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 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 -- 2.39.2