Commit 607f86f5 authored by Eli Zaretskii's avatar Eli Zaretskii
Browse files

(command-line): Compute the value of

small-temporary-file-directory.
parent 9531ab86
......@@ -504,6 +504,10 @@ or `CVS', and any subdirectory that contains a file named `.nosearch'."
(or (getenv "TMPDIR") (getenv "TMP") (getenv "TEMP") "SYS$SCRATCH:"))
(t
(or (getenv "TMPDIR") (getenv "TMP") (getenv "TEMP") "/tmp")))))
(setq small-temporary-file-directory
(if (eq system-type 'ms-dos)
(getenv "TMPDIR")
temporary-file-directory))
;; See if we should import version-control from the environment variable.
(let ((vc (getenv "VERSION_CONTROL")))
......
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