diff options
| author | Richard M. Stallman <rms@gnu.org> | 1998-05-19 05:21:42 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1998-05-19 05:21:42 +0000 |
| commit | 268a9c3e9cc17cea035d547a42df839df9cf43f8 (patch) | |
| tree | 162adfb288e85069e76ce4a5c0072b82fb967f8f | |
| parent | 0d73a3a369dd87c7d69d20f93bf3dd00f81eae25 (diff) | |
| download | emacs-268a9c3e9cc17cea035d547a42df839df9cf43f8.tar.gz | |
(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." (defvar view-read-only nil "*Non-nil means buffers visiting files read-only, do it in view mode.") -(defvar system-tmp-directory - (directory-file-name +(defvar temporary-file-directory + (file-name-as-directory (cond ((memq system-type '(ms-dos windows-nt)) (or (getenv "TEMP") (getenv "TMPDIR") (getenv "TMP") "c:/temp")) ((memq system-type '(vax-vms axp-vms)) (or (getenv "TMPDIR") (getenv "TMP") (getenv "TEMP") "SYS$SCRATCH:")) (t (or (getenv "TMPDIR") (getenv "TMP") (getenv "TEMP") "/tmp")))) - "The directory for writing temporary files--actually, its name as a file.") + "The directory for writing temporary files.") ;; This hook function provides support for ange-ftp host name ;; completion. It runs the usual ange-ftp hook, but only for |