Mercurial > emacs

diff lisp/jka-compr.el @ 21633:185e8e424ee9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(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.
author Richard M. Stallman <rms@gnu.org>
date Fri, 17 Apr 1998 21:17:21 +0000
parents 41ad3e101628
children 0072d85ea09a
line wrap: on
line diff
--- 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