procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Improve docstrings of thread-list functions

Browse source 
* lisp/thread.el (thread-list--timer-func): Change
argument from 'buf' to 'buffer'.
(thread-list--get-entries, thread-list--get-status): Improve
docstring.
(thread-list--send-signal): Change argument from 'sgnl' to
'signal'.  Tell the user when the thread is no longer alive.
This commit is contained in:
Gemini Lasswell 2018-08-01 09:25:28 -07:00
parent 3ca82c59de
commit ea1ec0ed2e
1 changed files with 17 additions and 16 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

33
lisp/thread.el
View file

@ -90,16 +90,16 @@ An EVENT has the format
;; doing. Kids, don't try this at home!
;;;###autoload (put 'list-threads 'disabled "Beware: manually canceling threads can ruin your Emacs session.")
(defun thread-list--timer-func (buf)
"Revert BUF and set a timer to do it again."
(when (buffer-live-p buf)
(with-current-buffer buf
(defun thread-list--timer-func (buffer)
"Revert BUFFER and set a timer to do it again."
(when (buffer-live-p buffer)
(with-current-buffer buffer
(revert-buffer))
(run-at-time thread-list-refresh-seconds nil
#'thread-list--timer-func buf)))
#'thread-list--timer-func buffer)))
(defun thread-list--get-entries ()
"Return tabulated list entries for the threads currently active."
"Return tabulated list entries for the currently live threads."
(let (entries)
(dolist (thread (all-threads))
(pcase-let ((`(,status ,blocker) (thread-list--get-status thread)))
@ -112,9 +112,8 @@ An EVENT has the format
(defun thread-list--get-status (thread)
"Describe the status of THREAD.
Return a list of two strings, the first describing THREAD's
status and the second describing what it is blocked on if it is
blocked."
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" ""))
((eq thread (current-thread)) '("Running" ""))
@ -132,14 +131,16 @@ blocked."
(interactive)
(thread-list--send-signal 'error))
(defun thread-list--send-signal (sgnl)
"Send the signal SGNL to the thread at point.
Confirm with the user first."
(defun thread-list--send-signal (signal)
"Send the specified SIGNAL to the thread at point.
Ask for user confirmation before signaling the thread."
(let ((thread (tabulated-list-get-id)))
(when (and (threadp thread) (thread-alive-p thread))
(when (y-or-n-p (format "Send %s signal to %s? " sgnl thread))
(when (and (threadp thread) (thread-alive-p thread))
(thread-signal thread sgnl nil))))))
(if (and (threadp thread) (thread-alive-p thread))
(when (y-or-n-p (format "Send %s signal to %s? " signal thread))
(if (and (threadp thread) (thread-alive-p thread))
(thread-signal thread signal nil)
(message "This thread is no longer alive")))
(message "This thread is no longer alive"))))
(provide 'thread)
;;; thread.el ends here