From: Eli Zaretskii <eliz@gnu.org>
Date: Thu, 2 Sep 1999 12:24:54 +0000 (+0000)
Subject: (small-temporary-file-directory): New variable.
X-Git-Tag: emacs-pretest-21.0.90~6958
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=9531ab86d9f875b7e88e8beb63d7b5f49368e24a;p=emacs.git

(small-temporary-file-directory): New variable.
---

diff --git a/lisp/files.el b/lisp/files.el
index ee0e0c37f85..5383a598e2c 100644
--- a/lisp/files.el
+++ b/lisp/files.el
@@ -380,6 +380,12 @@ and ignores this variable."
 	  (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.")