diff options
| author | Eli Zaretskii | 1999-09-06 11:47:56 +0000 |
|---|---|---|
| committer | Eli Zaretskii | 1999-09-06 11:47:56 +0000 |
| commit | 128d940d04dd764de695e828976961119e24d786 (patch) | |
| tree | 197934efa2ff8dfef0d34ad5f9277066edc60fc9 | |
| parent | f5568df0a808b8c07c3df0160ad3a9748c5f621c (diff) | |
| download | emacs-128d940d04dd764de695e828976961119e24d786.tar.gz emacs-128d940d04dd764de695e828976961119e24d786.zip | |
(small-temporary-file-directory): Make it nil except on ms-dos.
| -rw-r--r-- | lisp/files.el | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/lisp/files.el b/lisp/files.el index 5383a598e2c..17a9e78c7df 100644 --- a/lisp/files.el +++ b/lisp/files.el | |||
| @@ -381,10 +381,11 @@ and ignores this variable." | |||
| 381 | "The directory for writing temporary files.") | 381 | "The directory for writing temporary files.") |
| 382 | 382 | ||
| 383 | (defvar small-temporary-file-directory | 383 | (defvar small-temporary-file-directory |
| 384 | (if (eq system-type 'ms-dos) (getenv "TMPDIR") temporary-file-directory) | 384 | (if (eq system-type 'ms-dos) (getenv "TMPDIR")) |
| 385 | "The directory for writing small temporary files. | 385 | "The directory for writing small temporary files. |
| 386 | This is for systems that have fast storage with limited space, | 386 | If non-nil, this directory is used instead of `temporary-file-directory' |
| 387 | such as a RAM disk.") | 387 | by programs that create small temporary files. This is for systems that |
| 388 | have fast storage with limited space, such as a RAM disk.") | ||
| 388 | 389 | ||
| 389 | ;; The system null device. (Should reference NULL_DEVICE from C.) | 390 | ;; The system null device. (Should reference NULL_DEVICE from C.) |
| 390 | (defvar null-device "/dev/null" "The system null device.") | 391 | (defvar null-device "/dev/null" "The system null device.") |