diff options
| author | Gemini Lasswell <gazally@runbox.com> | 2018-09-07 17:41:24 -0700 |
|---|---|---|
| committer | Gemini Lasswell <gazally@runbox.com> | 2018-09-09 07:41:50 -0700 |
| commit | b7719f0cdee4aa21dce16304d410f156c65011e2 (patch) | |
| tree | 1bfef591d95039216e6976cd56c17995ddb55700 /lisp/thread.el | |
| parent | 8adc0e518fe36b6251d79ac61b6de9d4766a6afd (diff) | |
| download | emacs-b7719f0cdee4aa21dce16304d410f156c65011e2.tar.gz | |
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.
Diffstat (limited to 'lisp/thread.el')
| -rw-r--r-- | lisp/thread.el | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/lisp/thread.el b/lisp/thread.el index 53208851b78..1c5dccf5ce4 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) |