Mercurial > emacs
changeset 25485:d862057a6c14
(command-line): Compute the value of
small-temporary-file-directory.
| author | Eli Zaretskii <eliz@gnu.org> |
|---|---|
| date | Thu, 02 Sep 1999 12:30:24 +0000 |
| parents | a8383dbd7250 |
| children | 492661043e69 |
| files | lisp/startup.el |
| diffstat | 1 files changed, 4 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/startup.el Thu Sep 02 12:24:54 1999 +0000 +++ b/lisp/startup.el Thu Sep 02 12:30:24 1999 +0000 @@ -504,6 +504,10 @@ (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")))