(jka-compr-temp-name-template): Use system-tmp-directory

7b559d16 · Richard M. Stallman · e4244d31 · 7b559d16
Commit 7b559d16 authored May 16, 1998 by Richard M. Stallman
Hide whitespace changes
Inline Side-by-side

Showing with 1 addition and 5 deletions

lisp/jka-compr.el lisp/jka-compr.el +1 -5

No files found.
--- a/lisp/jka-compr.el
+++ b/lisp/jka-compr.el
@@ -347,11 +347,7 @@ to keep: LEN chars starting BEG chars from the beginning."
 ;;; from ange-ftp.

 (defcustom jka-compr-temp-name-template
-  (expand-file-name "jka-com"
-		    (if (memq system-type '(ms-dos windows-nt))
-			(concat (or (getenv "TEMP") (getenv "TMP") "c:/temp") 
-				"/")
-		      (or (getenv "TMPDIR") "/tmp/")))
+  (expand-file-name "jka-com" system-tmp-directory)
  "Prefix added to all temp files created by jka-compr.
 There should be no more than seven characters after the final `/'."
  :type 'string