Mark thread-alive-p as obsolete

* etc/NEWS (thread-alive-p):
* lisp/emacs-lisp/thread.el (thread-alive-p): Mark it as obsolete.

* test/src/thread-tests.el (threads-join-error)
(threads-signal-main-thread): Use `thread-live-p'.

1 files changed, 2 insertions, 2 deletions

diff --git a/test/src/thread-tests.el b/test/src/thread-tests.el
index a87eb3e1591..109e71128ab 100644
--- a/test/src/thread-tests.el
+++ b/test/src/thread-tests.el
@@ -116,7 +116,7 @@
   :tags '(:unstable)
   (skip-unless (featurep 'threads))
   (let ((thread (make-thread #'threads-call-error)))
-    (while (thread-alive-p thread)
+    (while (thread-live-p thread)
       (thread-yield))
     (should-error (thread-join thread))))
 
@@ -332,7 +332,7 @@
       (erase-buffer))
     (let ((thread
            (make-thread #'(lambda () (thread-signal main-thread 'error nil)))))
-      (while (thread-alive-p thread)
+      (while (thread-live-p thread)
         (thread-yield))
       (read-event nil nil 0.1)
       ;; No error has been raised, which is part of the test.