diff options
| author | Richard M. Stallman <rms@gnu.org> | 1998-04-17 21:17:21 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1998-04-17 21:17:21 +0000 |
| commit | eb915452f40e946bafbac1f683892f2e366574c7 (patch) | |
| tree | b15c010624dd31107d0b536a5f488add30992819 /lisp/jka-compr.el | |
| parent | 93a7d76ffe7b25ac642144b7ada752a9dfa46cc0 (diff) | |
| download | emacs-eb915452f40e946bafbac1f683892f2e366574c7.tar.gz | |
(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.
Diffstat (limited to 'lisp/jka-compr.el')
| -rw-r--r-- | lisp/jka-compr.el | 9 |
1 files 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 |