# HG changeset patch
# User Eli Zaretskii <eliz@gnu.org>
# Date 936275424 0
# Node ID d862057a6c14e8936b0ae6da99868d35f0f57f53
# Parent  a8383dbd725015fd2acc56af5c65a45fe406387e
(command-line): Compute the value of
small-temporary-file-directory.

diff -r a8383dbd7250 -r d862057a6c14 lisp/startup.el
--- 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")))