procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(command-line): Compute the value of

Browse source 
small-temporary-file-directory.
This commit is contained in:
Eli Zaretskii 1999-09-02 12:30:24 +00:00
parent 9531ab86d9
commit 607f86f527
1 changed files with 4 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

4
lisp/startup.el
View file

@ -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")))