Fix some fd issues when running subprocesses.

[bpt/emacs.git] / src / eval.c

diff --git a/src/eval.c b/src/eval.c
index 8ee2591..566be0c 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)
 {