From 42f9176bf86f4f39b217b942a48a25de5983e18c Mon Sep 17 00:00:00 2001 From: Giuseppe Scrivano Date: Wed, 16 Sep 2009 16:14:32 +0200 Subject: [PATCH] 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)) --- src/thread.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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, ¤t_thread->func); + Feval (current_thread->func); return unbind_to (count, Qnil); } -- 2.39.5