From: Giuseppe Scrivano <gscrivano@gnu.org>
Date: Sat, 19 Sep 2009 11:49:04 +0000 (+0200)
Subject: When there are other active threads, yield returns t.
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=21efc1e5f2e32a042fe53cc4d95bb819f2b9633e;p=emacs.git

When there are other active threads, yield returns t.
---

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