# HG changeset patch
# User Eli Zaretskii <eliz@gnu.org>
# Date 936618181 0
# Node ID cf5a6d4a09f15a5bd8e53ff1ba66bc3946627e3a
# Parent  76420959ca816dfbb57e0dd3e3ca9b8902578fc5
(command-line): Make small-temporary-file-directory
be nil except on ms-dos.

diff -r 76420959ca81 -r cf5a6d4a09f1 lisp/startup.el
--- a/lisp/startup.el	Mon Sep 06 11:22:43 1999 +0000
+++ b/lisp/startup.el	Mon Sep 06 11:43:01 1999 +0000
@@ -506,8 +506,7 @@
 		(or (getenv "TMPDIR") (getenv "TMP") (getenv "TEMP") "/tmp")))))
   (setq small-temporary-file-directory
 	(if (eq system-type 'ms-dos)
-	    (getenv "TMPDIR")
-	  temporary-file-directory))
+	    (getenv "TMPDIR")))
 
   ;; See if we should import version-control from the environment variable.
   (let ((vc (getenv "VERSION_CONTROL")))