Fix openp errno handling.

* callproc.c (Fcall_process): Preserve openp errno around close.
* lread.c (openp): Set errno when returning -1, as some callers
expect this.

1 files changed, 2 insertions, 0 deletions

diff --git a/src/callproc.c b/src/callproc.c
index 6de8113dc14..185dc9a493e 100644
--- a/src/callproc.c
+++ b/src/callproc.c
@@ -436,7 +436,9 @@ usage: (call-process PROGRAM &optional INFILE DESTINATION DISPLAY &rest ARGS)  *
   }
   if (NILP (path))
     {
+      int openp_errno = errno;
       emacs_close (filefd);
+      errno = openp_errno;
       report_file_error ("Searching for program", Fcons (args[0], Qnil));
     }