# HG changeset patch
# User Eli Zaretskii <eliz@gnu.org>
# Date 936275094 0
# Node ID a8383dbd725015fd2acc56af5c65a45fe406387e
# Parent  cd1649a27c08f3839be1d3b352063467818998a5
(small-temporary-file-directory): New variable.

diff -r cd1649a27c08 -r a8383dbd7250 lisp/files.el
--- a/lisp/files.el	Thu Sep 02 12:05:07 1999 +0000
+++ b/lisp/files.el	Thu Sep 02 12:24:54 1999 +0000
@@ -380,6 +380,12 @@
 	  (or (getenv "TMPDIR") (getenv "TMP") (getenv "TEMP") "/tmp"))))
   "The directory for writing temporary files.")
 
+(defvar small-temporary-file-directory
+  (if (eq system-type 'ms-dos) (getenv "TMPDIR") temporary-file-directory)
+  "The directory for writing small temporary files.
+This is for systems that have fast storage with limited space,
+such as a RAM disk.")
+
 ;; The system null device. (Should reference NULL_DEVICE from C.)
 (defvar null-device "/dev/null" "The system null device.")