Mercurial > emacs
comparison lisp/files.el @ 22405:9a8440593987
(null-device): New variable.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Tue, 09 Jun 1998 02:52:41 +0000 |
| parents | 4b5a49aa186a |
| children | 5dcb65955074 |
comparison
equal
deleted
inserted
replaced
| 22404:9862ae4f05a7 | 22405:9a8440593987 |
|---|---|
| 362 ((memq system-type '(vax-vms axp-vms)) | 362 ((memq system-type '(vax-vms axp-vms)) |
| 363 (or (getenv "TMPDIR") (getenv "TMP") (getenv "TEMP") "SYS$SCRATCH:")) | 363 (or (getenv "TMPDIR") (getenv "TMP") (getenv "TEMP") "SYS$SCRATCH:")) |
| 364 (t | 364 (t |
| 365 (or (getenv "TMPDIR") (getenv "TMP") (getenv "TEMP") "/tmp")))) | 365 (or (getenv "TMPDIR") (getenv "TMP") (getenv "TEMP") "/tmp")))) |
| 366 "The directory for writing temporary files.") | 366 "The directory for writing temporary files.") |
| 367 | |
| 368 ;; The system null device. (Should reference NULL_DEVICE from C.) | |
| 369 (defvar null-device "/dev/null" "The system null device.") | |
| 367 | 370 |
| 368 ;; This hook function provides support for ange-ftp host name | 371 ;; This hook function provides support for ange-ftp host name |
| 369 ;; completion. It runs the usual ange-ftp hook, but only for | 372 ;; completion. It runs the usual ange-ftp hook, but only for |
| 370 ;; completion operations. Having this here avoids the need | 373 ;; completion operations. Having this here avoids the need |
| 371 ;; to load ange-ftp when it's not really in use. | 374 ;; to load ange-ftp when it's not really in use. |