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;
 }