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

diff --git a/lisp/jka-compr.el b/lisp/jka-compr.el
index 0f02f74df8a8beed5e9f558e3c17e833268f7b58..bffa1fc6f020a9e14f300633e0eb7af21d3cfa6b 100644 (file)
--- 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