[Emacs-diffs] master b7719f0 11/12: Use thread-live-p instead of obsolete thread-alive-p

[Gemini Lasswell]

branch: master
commit b7719f0cdee4aa21dce16304d410f156c65011e2
Author: Gemini Lasswell <address@hidden>
Commit: Gemini Lasswell <address@hidden>

    Use thread-live-p instead of obsolete thread-alive-p
    
    * lisp/thread.el (thread-list--get-status)
    (thread-list--send-signal, thread-list-pop-to-backtrace)
    (thread-list-backtrace--revert-hook-function)
    (thread-list-backtrace--insert-header): Use thread-live-p instead of
    thread-alive-p.
---
 lisp/thread.el | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

diff --git a/lisp/thread.el b/lisp/thread.el
index 5320885..1c5dccf 100644
--- a/lisp/thread.el
+++ b/lisp/thread.el
@@ -121,7 +121,7 @@ An EVENT has the format
 Return a list of two strings, one describing THREAD's status, the
 other describing THREAD's blocker, if any."
   (cond
-   ((not (thread-alive-p thread)) '("Finished" ""))
+   ((not (thread-live-p thread)) '("Finished" ""))
    ((eq thread (current-thread)) '("Running" ""))
    (t (if-let ((blocker (thread--blocker thread)))
           `("Blocked" ,(prin1-to-string blocker))
@@ -141,9 +141,9 @@ other describing THREAD's blocker, if any."
   "Send the specified SIGNAL to the thread at point.
 Ask for user confirmation before signaling the thread."
   (let ((thread (tabulated-list-get-id)))
-    (if (thread-alive-p thread)
+    (if (thread-live-p thread)
         (when (y-or-n-p (format "Send %s signal to %s? " signal thread))
-          (if (thread-alive-p thread)
+          (if (thread-live-p thread)
               (thread-signal thread signal nil)
             (message "This thread is no longer alive")))
       (message "This thread is no longer alive"))))
@@ -155,7 +155,7 @@ Ask for user confirmation before signaling the thread."
   "Display the backtrace for the thread at point."
   (interactive)
   (let ((thread (tabulated-list-get-id)))
-    (if (thread-alive-p thread)
+    (if (thread-live-p thread)
         (let ((buffer (get-buffer-create "*Thread Backtrace*")))
           (pop-to-buffer buffer)
           (unless (derived-mode-p 'backtrace-mode)
@@ -172,7 +172,7 @@ Ask for user confirmation before signaling the thread."
 
 (defun thread-list-backtrace--revert-hook-function ()
   (setq backtrace-frames
-        (when (thread-alive-p thread-list-backtrace--thread)
+        (when (thread-live-p thread-list-backtrace--thread)
           (mapcar #'thread-list--make-backtrace-frame
                   (backtrace--frames-from-thread
                    thread-list-backtrace--thread)))))
@@ -182,7 +182,7 @@ Ask for user confirmation before signaling the thread."
 
 (defun thread-list-backtrace--insert-header ()
   (let ((name (thread-list--name thread-list-backtrace--thread)))
-    (if (thread-alive-p thread-list-backtrace--thread)
+    (if (thread-live-p thread-list-backtrace--thread)
         (progn
           (insert (substitute-command-keys "Backtrace for thread `"))
           (insert name)