Fix some fd issues when running subprocesses.

[gnu-emacs] / src / eval.c

diff --git a/src/eval.c b/src/eval.c
index 8ee259110f42386f1facf13702560a0febb0a630..566be0c2a8399d61ea4afd458612c0bcf59501cb 100644 (file)
--- a/src/eval.c
+++ b/src/eval.c
@@ -3301,6 +3301,16 @@ clear_unwind_protect (ptrdiff_t count)
    It need not be at the top of the stack.  Discard the entry's
    previous value without invoking it.  */
 
+void
+set_unwind_protect (ptrdiff_t count, void (*func) (Lisp_Object),
+                   Lisp_Object arg)
+{
+  union specbinding *p = specpdl + count;
+  p->unwind.kind = SPECPDL_UNWIND;
+  p->unwind.func = func;
+  p->unwind.arg = arg;
+}
+
 void
 set_unwind_protect_ptr (ptrdiff_t count, void (*func) (void *), void *arg)
 {