From 70ffb393eaf1624e41222d3c94ecb74623853bdd Mon Sep 17 00:00:00 2001
From: "Richard M. Stallman" <rms@gnu.org>
Date: Sat, 11 May 1996 10:53:17 +0000
Subject: [PATCH] (Fcall_process): Close fd_error if successful.

---
 src/callproc.c | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/src/callproc.c b/src/callproc.c
index 5fda6d61b0a..d9c29a0ba72 100644
--- a/src/callproc.c
+++ b/src/callproc.c
@@ -456,6 +456,8 @@ If you quit, the process is killed with SIGINT, or SIGKILL if you quit again.")
     close (filefd);
     if (fd1 >= 0)
       close (fd1);
+    if (fd_error >= 0)
+      close (fd_error);
   }
 
   if (pid < 0)
-- 
2.39.5