Fix one part of bug #13079 with temporary files in call-process-region.

 src/callproc.c (Fcall_process_region) [!HAVE_MKSTEMP]: If mktemp
 fails, signal an error instead of continuing with an empty
 string.

diff --git a/src/ChangeLog b/src/ChangeLog
index 6d2cd720672cbc75e2f5cf776eea348a097955be..e71667f7dcfb999565d495d9cb10b22ee8e5b759 100644 (file)
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,9 @@
+2012-12-05  Eli Zaretskii  <eliz@gnu.org>
+
+       * callproc.c (Fcall_process_region) [!HAVE_MKSTEMP]: If mktemp
+       fails, signal an error instead of continuing with an empty
+       string.  (Bug#13079)
+
 2012-12-04  Eli Zaretskii  <eliz@gnu.org>
 
        * fileio.c (file_name_as_directory, directory_file_name) [DOS_NT]:

diff --git a/src/callproc.c b/src/callproc.c
index c236f22fc8605212c1d5c753f34971f5dbf4fd79..ce3b11af6967e66f0abd553d4850e61a55bd5f4d 100644 (file)
--- a/src/callproc.c
+++ b/src/callproc.c
@@ -977,7 +977,15 @@ usage: (call-process-region START END PROGRAM &optional DELETE BUFFER DISPLAY &r
        close (fd);
     }
 #else
+    errno = 0;
     mktemp (tempfile);
+    if (!*tempfile)
+      {
+       if (!errno)
+         errno = EEXIST;
+       report_file_error ("Failed to open temporary file using pattern",
+                          Fcons (pattern, Qnil));
+      }
 #endif
 
     filename_string = build_string (tempfile);