From: Richard M. Stallman <rms@gnu.org>
Date: Fri, 17 Apr 1998 21:17:21 +0000 (+0000)
Subject: (jka-compr-use-shell) [ms-dos, windows-nt]: Do not use a shell.
X-Git-Tag: emacs-20.3~1442
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=eb915452f40e946bafbac1f683892f2e366574c7;p=emacs.git

(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 --git a/lisp/jka-compr.el b/lisp/jka-compr.el
index 6f8ef0c897d..0f02f74df8a 100644
--- a/lisp/jka-compr.el
+++ b/lisp/jka-compr.el
@@ -117,8 +117,8 @@ for `jka-compr-compression-info-list')."
   :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 @@ to keep: LEN chars starting BEG chars from the beginning."
 
 (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