Commit ee2509bd authored by Michael Albinus's avatar Michael Albinus

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'.
parent 6f3cf12e
......@@ -730,6 +730,9 @@ to signal the main thread, e.g., when they encounter an error.
*** 'thread-signal' does not propagate errors to the main thread.
Instead, error messages are just printed in the main thread.
---
*** 'thread-alive-p' is now obsolete, use 'thread-live-p' instead.
---
** thingatpt.el supports a new "thing" called 'uuid'.
A symbol 'uuid' can be passed to thing-at-point and it returns the
......
......@@ -38,5 +38,7 @@ An EVENT has the format
(err (cddr event)))
(message "Error %s: %S" thread err))))
(make-obsolete 'thread-alive-p 'thread-live-p "27.1")
(provide 'thread)
;;; thread.el ends here
......@@ -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.
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment