# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 892019308 0
# Node ID f866f7cadda2d114fba79f76592638a54e8b4ec3
# Parent  b49e191032c7685a0ae92d6d4268861de7e4f9a9
(Fmake_temp_name): Detect error return from mktemp.

diff -r b49e191032c7 -r f866f7cadda2 src/fileio.c
--- a/src/fileio.c	Wed Apr 08 07:05:35 1998 +0000
+++ b/src/fileio.c	Wed Apr 08 07:08:28 1998 +0000
@@ -797,6 +797,7 @@
   (prefix)
      Lisp_Object prefix;
 {
+  char *temp;
   Lisp_Object val;
 #ifdef MSDOS
   /* Don't use too many characters of the restricted 8+3 DOS
@@ -805,7 +806,10 @@
 #else
   val = concat2 (prefix, build_string ("XXXXXX"));
 #endif
-  mktemp (XSTRING (val)->data);
+  temp = mktemp (XSTRING (val)->data);
+  if (! temp)
+    error ("No temporary file names based on %s are available",
+	   XSTRING (prefix)->data);
 #ifdef DOS_NT
   CORRECT_DIR_SEPS (XSTRING (val)->data);
 #endif