From: Giuseppe Scrivano <gscrivano@gnu.org>
Date: Wed, 16 Sep 2009 14:14:32 +0000 (+0200)
Subject: Support more complex code blocks as argument to `run-in-thread
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=42f9176bf86f4f39b217b942a48a25de5983e18c;p=emacs.git

Support more complex code blocks as argument to `run-in-thread


It introduces this change:

 (defun tha ()
  ...)

 (run-in-thread 'tha)

becomes:
 (run-in-thread '(tha))
---

diff --git a/src/thread.c b/src/thread.c
index dfc14c074a8..77fa8ba9f14 100644
--- a/src/thread.c
+++ b/src/thread.c
@@ -137,7 +137,7 @@ invoke_thread_function (void)
     }
   current_thread->initial_specpdl = Qnil;
 
-  Ffuncall (1, &current_thread->func);
+  Feval (current_thread->func);
   return unbind_to (count, Qnil);
 }