From eb915452f40e946bafbac1f683892f2e366574c7 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Fri, 17 Apr 1998 21:17:21 +0000 Subject: [PATCH] (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. --- lisp/jka-compr.el | 9 ++++++--- 1 file changed, 6 insertions(+), 3 deletions(-) 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 -- 2.39.2