Commit 7b559d16 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

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

parent e4244d31
...@@ -347,11 +347,7 @@ to keep: LEN chars starting BEG chars from the beginning." ...@@ -347,11 +347,7 @@ to keep: LEN chars starting BEG chars from the beginning."
;;; from ange-ftp. ;;; from ange-ftp.
(defcustom jka-compr-temp-name-template (defcustom jka-compr-temp-name-template
(expand-file-name "jka-com" (expand-file-name "jka-com" system-tmp-directory)
(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. "Prefix added to all temp files created by jka-compr.
There should be no more than seven characters after the final `/'." There should be no more than seven characters after the final `/'."
:type 'string :type 'string
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment