diff options
| author | Michael Albinus <michael.albinus@gmx.de> | 2018-08-31 11:45:37 +0200 |
|---|---|---|
| committer | Michael Albinus <michael.albinus@gmx.de> | 2018-08-31 11:45:37 +0200 |
| commit | ee2509bd828070ae5d17fcc766f81715050ba673 (patch) | |
| tree | 89ebdb3af0ef10d1344b01323dd832a776d414f3 /test/src/thread-tests.el | |
| parent | 6f3cf12e4fb6c810ebf37c8819dc2ee39b02199e (diff) | |
| download | emacs-ee2509bd828070ae5d17fcc766f81715050ba673.tar.gz | |
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'.
Diffstat (limited to 'test/src/thread-tests.el')
| -rw-r--r-- | test/src/thread-tests.el | 4 |
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. |