Fix races with threads and file descriptors.

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

diff --git a/src/callproc.c b/src/callproc.c
index fc274f3..ac9477b 100644 (file)
--- a/src/callproc.c
+++ b/src/callproc.c
@@ -1052,7 +1052,7 @@ usage: (call-process-region START END PROGRAM &optional DELETE BUFFER DISPLAY &r
        report_file_error ("Failed to open temporary file",
                           Fcons (build_string (tempfile), Qnil));
       else
-       close (fd);
+       emacs_close (fd);
     }
 #else
     errno = 0;