rename thread-blocker to thread--blocker

This commit is contained in:
Tom Tromey 2013-08-27 12:57:18 -06:00
parent 07efb14034
commit 8c46d17826
2 changed files with 5 additions and 4 deletions

View file

@ -1,6 +1,6 @@
@c -*-texinfo-*-
@c This is part of the GNU Emacs Lisp Reference Manual.
@c Copyright (C) 2012
@c Copyright (C) 2012, 2013
@c Free Software Foundation, Inc.
@c See the file elisp.texi for copying conditions.
@node Threads
@ -101,9 +101,10 @@ Return @code{t} if @var{thread} is alive, or @code{nil} if it is not.
A thread is alive as long as its function is still executing.
@end defun
@defun thread-blocker thread
@defun thread--blocker thread
Return the object that @var{thread} is waiting on. This function is
primarily intended for debugging.
primarily intended for debugging, and is given a ``double hyphen''
name to indicate that.
If @var{thread} is blocked in @code{thread-join}, this returns the
thread for which it is waiting.

View file

@ -804,7 +804,7 @@ DEFUN ("thread-alive-p", Fthread_alive_p, Sthread_alive_p, 1, 1, 0,
return thread_alive_p (tstate) ? Qt : Qnil;
}
DEFUN ("thread-blocker", Fthread_blocker, Sthread_blocker, 1, 1, 0,
DEFUN ("thread--blocker", Fthread_blocker, Sthread_blocker, 1, 1, 0,
doc: /* Return the object that THREAD is blocking on.
If THREAD is blocked in `thread-join' on a second thread, return that
thread.