From 607f86f52769c8a965b77bdc0f85be4af6ed6fee Mon Sep 17 00:00:00 2001 From: Eli Zaretskii Date: Thu, 2 Sep 1999 12:30:24 +0000 Subject: [PATCH] (command-line): Compute the value of small-temporary-file-directory. --- lisp/startup.el | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/lisp/startup.el b/lisp/startup.el index d2b2afd57fe..cb8f0cef47e 100644 --- a/lisp/startup.el +++ b/lisp/startup.el @@ -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"))) -- 2.39.5