From: Richard M. Stallman <rms@gnu.org>
Date: Mon, 5 Aug 1996 01:15:49 +0000 (+0000)
Subject: (Fcall_process_region) [DOS_NT]: Avoid downcasing
X-Git-Tag: emacs-19.34~38
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=5711b5478c6ecfc003daf9540a8c4ac205ce22ff;p=emacs.git

(Fcall_process_region) [DOS_NT]: Avoid downcasing
the `X' characters in the template passed to `mktemp'.
---

diff --git a/src/callproc.c b/src/callproc.c
index dc0c945925c..ffff3f45531 100644
--- a/src/callproc.c
+++ b/src/callproc.c
@@ -650,15 +650,15 @@ If you quit, the process is killed with SIGINT, or SIGKILL if you quit again.")
     }
   if (!IS_DIRECTORY_SEP (tempfile[strlen (tempfile) - 1]))
     strcat (tempfile, "/");
+  if ('/' == DIRECTORY_SEP)
+    dostounix_filename (tempfile);
+  else
+    unixtodos_filename (tempfile);
 #ifdef WINDOWSNT
   strcat (tempfile, "emXXXXXX");
 #else
   strcat (tempfile, "detmp.XXX");
 #endif
-  if ('/' == DIRECTORY_SEP)
-    dostounix_filename (tempfile);
-  else
-    unixtodos_filename (tempfile);
 #else /* not DOS_NT */
 
 #ifdef VMS