From 21efc1e5f2e32a042fe53cc4d95bb819f2b9633e Mon Sep 17 00:00:00 2001
From: Giuseppe Scrivano <gscrivano@gnu.org>
Date: Sat, 19 Sep 2009 13:49:04 +0200
Subject: [PATCH] When there are other active threads, yield returns t.

---
 src/thread.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/thread.c b/src/thread.c
index 332b55c5ae9..e2e8e6a94e6 100644
--- 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
-- 
2.11.4.GIT