diff options
| author | Karl Heuer <kwzh@gnu.org> | 1998-04-08 07:08:28 +0000 |
|---|---|---|
| committer | Karl Heuer <kwzh@gnu.org> | 1998-04-08 07:08:28 +0000 |
| commit | d8afad26de00051491b9dcad7a2c73b45063733f (patch) | |
| tree | a77fd613dd4bee13aec00420588000e92ba31ccf /src/fileio.c | |
| parent | 0593f446344da3b95d038fa2a24170e0058e0d4d (diff) | |
(Fmake_temp_name): Detect error return from mktemp.
Diffstat (limited to 'src/fileio.c')
| -rw-r--r-- | src/fileio.c | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/src/fileio.c b/src/fileio.c index fbb6e64f2d1..9b2fe645910 100644 --- a/src/fileio.c +++ b/src/fileio.c @@ -797,6 +797,7 @@ which has no existing file.") (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 @@ which has no existing file.") #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 |