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 dfc14c074a8622ac614d6abd6a35955b0062eaf5..77fa8ba9f142548753cbb800d952732fe601a9ea 100644 (file)
--- 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);
 }