diff options
| -rw-r--r-- | src/fileio.c | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/src/fileio.c b/src/fileio.c index ec7d710cd36..f138e6e458e 100644 --- a/src/fileio.c +++ b/src/fileio.c @@ -714,7 +714,13 @@ so there is no danger of generating a name being used by another process.") Lisp_Object prefix; { Lisp_Object val; +#ifdef MSDOS + /* Don't use too much characters of the restricted 8+3 DOS + filename space. */ + val = concat2 (prefix, build_string (".XXX")); +#else val = concat2 (prefix, build_string ("XXXXXX")); +#endif mktemp (XSTRING (val)->data); return val; } |