Mercurial > emacs
comparison lisp/files.el @ 22143:468e3489f1c0
(temporary-file-directory): Renamed from system-tmp-directory.
Value is now a directory name, not a file name.
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Tue, 19 May 1998 05:21:42 +0000 |
parents | 08f31e440c92 |
children | 0a2e8ec2a766 |
comparison
equal
deleted
inserted
replaced
22142:a63710b545db | 22143:468e3489f1c0 |
---|---|
341 (defalias 'file-locked-p 'ignore)) | 341 (defalias 'file-locked-p 'ignore)) |
342 | 342 |
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 |
358 ;; completion operations. Having this here avoids the need | 358 ;; completion operations. Having this here avoids the need |
359 ;; to load ange-ftp when it's not really in use. | 359 ;; to load ange-ftp when it's not really in use. |