diff options
| author | Richard M. Stallman | 1998-05-19 05:21:42 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1998-05-19 05:21:42 +0000 |
| commit | cdda8f47bea08acb08e953f2c09211c3cfa9b7dd (patch) | |
| tree | 2f6aaaa4776175868ebb75b2067eec272d8e2a33 | |
| parent | 7117761b9e1aacf936cb6f59272ea325dcd23a48 (diff) | |
| download | emacs-cdda8f47bea08acb08e953f2c09211c3cfa9b7dd.tar.gz emacs-cdda8f47bea08acb08e953f2c09211c3cfa9b7dd.zip | |
(temporary-file-directory): Renamed from system-tmp-directory.
Value is now a directory name, not a file name.
| -rw-r--r-- | lisp/files.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/files.el b/lisp/files.el index 1fde283e03e..d0ecd6c2922 100644 --- a/lisp/files.el +++ b/lisp/files.el | |||
| @@ -343,15 +343,15 @@ and ignores this variable." | |||
| 343 | (defvar view-read-only nil | 343 | (defvar view-read-only nil |
| 344 | "*Non-nil means buffers visiting files read-only, do it in view mode.") | 344 | "*Non-nil means buffers visiting files read-only, do it in view mode.") |
| 345 | 345 | ||
| 346 | (defvar system-tmp-directory | 346 | (defvar temporary-file-directory |
| 347 | (directory-file-name | 347 | (file-name-as-directory |
| 348 | (cond ((memq system-type '(ms-dos windows-nt)) | 348 | (cond ((memq system-type '(ms-dos windows-nt)) |
| 349 | (or (getenv "TEMP") (getenv "TMPDIR") (getenv "TMP") "c:/temp")) | 349 | (or (getenv "TEMP") (getenv "TMPDIR") (getenv "TMP") "c:/temp")) |
| 350 | ((memq system-type '(vax-vms axp-vms)) | 350 | ((memq system-type '(vax-vms axp-vms)) |
| 351 | (or (getenv "TMPDIR") (getenv "TMP") (getenv "TEMP") "SYS$SCRATCH:")) | 351 | (or (getenv "TMPDIR") (getenv "TMP") (getenv "TEMP") "SYS$SCRATCH:")) |
| 352 | (t | 352 | (t |
| 353 | (or (getenv "TMPDIR") (getenv "TMP") (getenv "TEMP") "/tmp")))) | 353 | (or (getenv "TMPDIR") (getenv "TMP") (getenv "TEMP") "/tmp")))) |
| 354 | "The directory for writing temporary files--actually, its name as a file.") | 354 | "The directory for writing temporary files.") |
| 355 | 355 | ||
| 356 | ;; This hook function provides support for ange-ftp host name | 356 | ;; This hook function provides support for ange-ftp host name |
| 357 | ;; completion. It runs the usual ange-ftp hook, but only for | 357 | ;; completion. It runs the usual ange-ftp hook, but only for |