From: Dan Nicolaescu <dann@ics.uci.edu>
Date: Fri, 19 Dec 2008 23:38:28 +0000 (+0000)
Subject: (system_process_attributes): Close fd when done.
X-Git-Tag: emacs-pretest-23.0.90~966
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=2d2d05d8646bf354d1ad7de83b9b92bda8756c11;p=emacs.git

(system_process_attributes): Close fd when done.
---

diff --git a/src/sysdep.c b/src/sysdep.c
index 70a019c39ae..fbd49739377 100644
--- a/src/sysdep.c
+++ b/src/sysdep.c
@@ -3743,6 +3743,9 @@ system_process_attributes (Lisp_Object pid)
 	  attrs =  Fcons (Fcons (Qargs,  decoded_cmd),  attrs);
     }
 
+  if (fd >= 0)
+    emacs_close (fd);
+
   UNGCPRO;
   return attrs;
 }