When there are other active threads, yield returns t.

diff --git a/src/thread.c b/src/thread.c
index 332b55c5ae9fc3db18515dd30539a3eed6a3f059..e2e8e6a94e64f0b770070e63b68ef55fa310c942 100644 (file)
--- a/src/thread.c
+++ b/src/thread.c
@@ -130,7 +130,7 @@ DEFUN ("yield", Fyield, Syield, 0, 0, 0,
      (void)
 {
   thread_yield ();
-  return Qnil;
+  return other_threads_p () ? Qt : Qnil;
 }
 
 static Lisp_Object