# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 892847841 0
# Node ID 185e8e424ee900b9544b0ec6df637ab409f2941b
# Parent  1f3afd7859624b02e30b9391feabd20fc56e1beb
(jka-compr-use-shell) [ms-dos, windows-nt]: Do not use a shell.
(jka-compr-temp-name-template) [ms-dos, windows-nt]: Check common
locations for tmp directory.

diff -r 1f3afd785962 -r 185e8e424ee9 lisp/jka-compr.el
--- a/lisp/jka-compr.el	Fri Apr 17 20:46:21 1998 +0000
+++ b/lisp/jka-compr.el	Fri Apr 17 21:17:21 1998 +0000
@@ -117,8 +117,8 @@
   :type 'string
   :group 'jka-compr)
 
-(defvar jka-compr-use-shell t)
-
+(defvar jka-compr-use-shell 
+  (not (memq system-type '(ms-dos windows-nt))))
 
 ;;; I have this defined so that .Z files are assumed to be in unix
 ;;; compress format; and .gz files, in gzip format, and .bz2 files in bzip fmt.
@@ -348,7 +348,10 @@
 
 (defcustom jka-compr-temp-name-template
   (expand-file-name "jka-com"
-		    (or (getenv "TMPDIR") "/tmp/"))
+		    (if (memq system-type '(ms-dos windows-nt))
+			(concat (or (getenv "TEMP") (getenv "TMP") "c:/temp") 
+				"/")
+		      (or (getenv "TMPDIR") "/tmp/")))
   "Prefix added to all temp files created by jka-compr.
 There should be no more than seven characters after the final `/'."
   :type 'string